[Perl] Vírus total malware scanner

Hi,
Segue um script que tem como objetivo verificar se determinado arquivo está infectado ou não,realizando uma requisição ao vírustotal,enviando a md5 de tal arquivo.Com a manipulação de expressões regulares capturamos algumas informações. =)

Código:


#!/usr/bin/perl


use strict;
use warnings;
use Digest::MD5::File qw(file_md5_hex);
use LWP::Simple qw(get);


sub inicio()
{
  if($^O =='linux')
  {
    system('reset');
  }
  else
  {
    system('cls');
  }
  print '[?] Digite a localização do arquivo: ';
  chomp(my$arqh=<>);
  print "[+] Aguarde ...\n|==========================================================|\n";
  my $hsh=file_md5_hex($arqh)||die"$!\n";
  my $smp = get("https://www.virustotal.com/file/$hsh/analysis/");
  while($smp =~ m/<td>([a-z1-6A-Z-\s]+):<\/td>\s+<td>([a-zA-Z0-9-\s]+)<\/td>/g)
  {
    print "\033[01;32m[+]\033[00;37m $1 $2\n";
  };
  if($smp =~ m/<td class=" text-.+ ">([0-9-\s-\/]+)<\/td>/g)
  {
    print "\033[01;31m[*]\033[00;37m Ratio de detecção: $1\n\n";
  }
   
 while($smp =~ m/<td>([a-zA-Z2-9-]+)<\/td>\s+<td class="text-red">(.*)<\/td>\s+<td>([0-9]+)<\/td>/g)
 {
    # $3 = última atualização do antivírus que detectou o vírus.
    print "\033[01;34m$1\033[00;37m => \033[01;37m$2\033[00;37m\n";
 };


 
  print "\n|==========================================================|\n";
 
}


&inicio(); 


Print de um teste que realizei.

Spoiler:

ps: Tive a idéia quando vi um tópico do hacker-fts315 =)
Bye

Excelente ideia, ta salvo aki. Valeu

muito show mano *-*, tambem salvei ele aq ^^