sub get_dir {
        my $dir = shift ;
        opendir(DIR, $dir) || wlog( "Cannot open dir: $dir." );
        my @files = grep !/^\.\.?$/, readdir DIR ;
        closedir DIR;
        return @files ;
}