my $tf = (stat("$fdir/$file"))[9];
my $tt = time() - (86400 * 90);

if ( $tf < $tt ) {
     unlink "$fdir/$file";
}