This is sophossavi, the perl interface module to Sophos Anti virus.
With thanks to the original author Paul B. Henson.

WWW: http://www.csupomona.edu/~henson/www/projects/SAVI-Perl/