Select Code to Download

  my $p = Net::Ping->new("icmp");
  if ($p->ping($computer)) {
...
  }
  $p->close();
}

if ($key = $Registry->Connect("$computer","LMachine/Software/Network A
+ssociates/" .
      "TVD/NetShield NT/CurrentVersion/" {Access=>KEY_READ} ) ) {
...
         $engine = "Unknown";
    }
}

    use Win32::TieRegistry( Delimiter=>"/" );

#
# GetCurrentVersion will the Mcafee download page and grab the version
+ number
...
    }
        return($dat, $superdat, $engine);
}