動かない プログラム (初めての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";
}