sub listfiles {
   $path = shift;
   $path = "." unless $path;
   opendir( DIR, $path ) || die "Can't open $path: $!";
   !/^\./ and push @loot, "$_\n" while ($_ = readdir(DIR));  
   closedir( DIR );
   return @loot;
}