sub files_in_dir {
    my ($dir) = (@_);
    ( -d $dir ) or die "No such directory $d";
    opendir DIR, $d or die "Opendir failed; $!";
    my @files = grep !/^\.\.?$/, DIR;
    closedir DIR;
    return @files;
}