{
find (sub {my $filename = $File::Find::name;
 if ( -f $filename ) {
    my $filetime = (stat "$filename")[9];
    my ($sec, $min, $hour, $day, $month, $year) = (localtime($filetime))[0,1,2,3,4,5];
    if ($now - $fivedaystime > $filetime){
      my $mm = $month+1;
      my $yy = $year+1900;
      open (LOGFILE, '>>', $script_auditlog) or die "Could not open file '$script_auditlog' $!";
      print LOGFILE "$filename last modified on $mm\/$day\/$yy $hour\:$min\:$sec was removed.\n";
      push (@file_list, $filename);
      }     
    }
}, $pslog_directory);
close LOGFILE;
}


##</code><code>##

 if ( -f $filename && $filename =~ /^Log*/ )

##</code><code>##

 if ( -f $filename && $filename =~ /^L/ )

##</code><code>##

Log.txt.20151102
Log.txt.20151103
Fsvrcom1.trc
Fsvrcom2.trc