chdir $dir or die "Cannot chdir to '$dir': $!";
my @files = glob '*';