初めてのperl の13章の　問題で、答えみてやったんだが、動かない

おかしいところをわからない


#!/usr/bin/perl
print "Which directory? (Default is your home directory) ";
chomp (my $dir = );
if ($dir =~ /^\s*$/) {
chdir or die "Can't chdir to your home directory: $!";
}else {
chdir $dir or die "Can't chdir chdir to '$dir': $!";
}

my @files = <*>;
foreach (@files) {
print "$_\n";
}

誰かなおして
直してくれた人のことを、感謝する