Select Code to Download

my %sdirdigest{   "c:/temp/filename.txt"=>"4eb788842f1253903e16a1a0cfe
+46f2f",
                  "c:/temp/level2/filename2.txt"=>"fb3e103dee9f40881fb
+e8fdccdc4d07a" };
...
         system($todo);
   }
}

#!/usr/bin/perl
use warnings;
...
   push(@sdir_list, "$fp") unless $_ =~ /^\.$|^\.\.$|[T|t]humbs.db/ or
+ $fp =~ /\/\//;
}