opendir(DIR,'/var/spool/amavis/virusmails/test');  
my @files=readdir(DIR);
closedir(DIR);
foreach (sort @files) {  
    if ($_=~ /virus*/) {    
        $alter = (-M "/var/spool/amavis/virusmails/test/".$_);    
#        print "/var/spool/amavis/virusmails/test/".$_." = ".$alter."\n";    
        print LOG "$t $_ groesser als 31 Tage --> $alter geloescht.\n";
                      #  print "$_ wurde geloescht.\n";
$count++;
        if ($alter > 31) {      
            system("rm /var/spool/amavis/virusmails/test/".$_);      
#            print "del\n";    
        }  
    }
}
print LOG "$t  --> $count Dateien wurden geloescht.\n";
close (LOG);