Select Code to Download

next if($file eq ".");
next if($file eq "..");

next if $file =~ /^\.{1,2}$/;

opendir(TARGET, $target);
while($file = readdir(TARGET))
{
    &process_new_file($file) if $file =~ /\.xls$/;
}