my $file_time = (stat($full_name))[9];
           my $diff = $now - $file_time;
           $diff = $diff / 86400;
           my $read = localtime($file_time);

##</code><code>##

my $file_time;
my $diff = ($now - ($file_time = (stat($full_name))[9])) / 86400;
my $read = localtime($file_time);

##</code><code>##

           $diff = $diff / 86400;
           my $read = localtime($file_time);

           if ( $diff > 93 ) {
              print FILE "$full_name  : $diff : $read\n";
              unlink "$full_name";

           } elsif ( $diff > 3 ) {
                 next if (/\.gz/);

##</code><code>##

              unlink "$full_name";

##</code><code>##

           my $read = localtime($file_time);