easy Perl/Tk ClamAV Gui