#!/usr/bin/perl -w 
# wogri@wogri.at

$subject="\[ACHTUNG: Virus entdeckt und entfernt\] Delivery Status Notification"; 

use Mail::Box::Manager;
my $mgr    = Mail::Box::Manager->new;
my $folder = $mgr->open($ARGV[0], access => 'rw');

$counter=0; 
for ($i = 0; $i<$folder->messages; $i++) {
	$subj = $folder->message($i)->subject . "\n";
	if ( $subj =~ /$subject/) {
		$folder->message($i)->delete;
		$counter++; 
	}
}
$folder->close; 
print "$counter Elements Deleted!\n";