if($fs->suspicious) {
      # do something.
}

##</code><code>##

use File::Scan;

$fs = File::Scan->new(extension => 'bad', move => 'infected');
$fs->scan('a.pl'); #scan this file, it has no viruses =)

print 'er: ', $fs->error, "\n";
print 'sk: ', $fs->skipped, "\n";
print 'su: ', $fs->suspicious, "\n";

__output__
er:
sk: 0
su: 0