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

##</code><code>##

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

##</code><code>##

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