better error message

diff --git a/user-md5sum.pl b/user-md5sum.pl
index 730ed4a..618198b 100755 (executable)
--- a/user-md5sum.pl
+++ b/user-md5sum.pl
@@ -9,7 +9,7 @@ my $user = shift @ARGV || die "usage: $0 u2001\n";
 
 my $dir = (getpwnam($user))[7];
 
-die $! unless -d $dir;
+die "$dir: $!" unless -d $dir;
 
 my $path = "$dir/.md5";