Select Code to Download

opendir DIR, "$path" or die "Ack!  Thpt! : $!\n";

my @list = grep { -M "$path/$_" <=1 } readdir DIR;
closedir DIR;