Select Code to Download

use Mail::ClamAV qw/:all/;

my $results = `clamscan $dir`;

my $dir = "/var/spool/mail";
...

}