おかしいところをわからない
#!/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";
}