use File::Scan;

$fs = File::Scan->new(extension => 'bad', move => 'infected');
$fs->scan("e:\\filescan\\test.html");
print "$fs\n";

my $e = $fs->error; print "$e\n";
if(my $e = $fs->error) { print "$e\n"; }

if(my $c = $fs->skipped) { print "file skipped ($c)\n"; }
print "$c\n";


exit;