Mail::Box::Manager with ClamAV

use Mail::Box::Manager;
use File::Scan::ClamAV;

$socket = "/var/run/clamav/clamd.ctl";
#$socket = 'netstat -nl | grep clam | grep -v milter | awk '{print \$9}'';

my $mailspool = 'Inbox';
my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open(folder => $mailspool);
$msg_num = $folder->messages;

foreach $msg ($folder->messages) { # all messages
my ($code, $virus) = $av->streamscan($msg->string);
if ($virus) {
print "$virus\n";
}
}