Select Code to Download

my @files = grep(-f, <*.*>);

...
{
 print "file = $file\n";
}

my @files = glob("/opt/tmp/*.*");

...
{
 print "file = $file\n";
}

my @files;

...
}

closedir(DIR);