#!/usr/bin/perl -w

undef %ENV;

use strict;

foreach (@ARGV) {
    /([- =a-zA-Z0-9\/_\.]*)/;
    $_=$1;
}

system("/usr/bin/freshclam", @ARGV);

my $errval="$!";
my $ret="$?";

if( $errval ne "" ) {
    print "/usr/bin/freshclam @ARGV error value: $errval\n";
}

exit $ret >> 8;

