use LWP::UserAgent; 
use HTTP::Request; 
use HTML::TableExtract;
[download]

#
# GetCurrentVersion will access the Mcafee download page and grab the 
+version number
# for the latest DAT, superDAT, and engine.
sub GetCurrentVersion {
    #
    # Lets access the Network Associates download page for the Virus I
+nfo.
    my $html_code;
    my $ua = new LWP::UserAgent;
    my $url = 'http://www.mcafeeb2b.com/naicommon/download/dats/find.a
+sp';
    my $request = new HTTP::Request('GET',$url);
    #
    # Do we need to login?
    #$request->authorization_basic('login', 'password'); 
    $ua->timeout(10); 
    my $response     = $ua->request($request); 
    my $responsecode = $response->code(); 
    #
    # Now we need to gather the information.
    if ($responsecode != 200) { 
        print "Failed to Access the Mcafee site!: $responsecode\n"; 
    } else {
        #
        # Load the HTML junk into a var.
        my @array = (split "\n", $ua->request($request)->as_string);
        foreach (@array) {
            $html_code .= $_ . "\n";
        }
    }
    #
    # It's time to use TableExtract. We use the File Version and Date 
+for
    # header info to locate our tables.  Once found; we look for certa
+in
    # names and assing the version info to our needed vars.
    my $te = new HTML::TableExtract( headers => [qw(File Version Date)
+] );
    $te->parse($html_code);

    my ( $dat, $superdat, $engine);
    foreach my $ts ($te->table_states) {
        #print "Table found at ", join(',', $ts->coords), ":\n";

        foreach my $row ($ts->rows) {
            #
            # DAT Version
            if (@$row[0] =~ /DAT File for weekly v4x \(DAT Only\)/) {
                #print "DAT = @$row[1]\n";
                $dat = @$row[1];
            }
            #
            # SuperDAT version which has both Engine and DAT.
            if (@$row[0] =~ /SuperDat File for v4x \(DAT \+ Engine\)/)
+ {
                #print "Superdat = @$row[1]\n";
                $superdat = @$row[1];
            }
            #
            # Engine only Version.
            if (@$row[0] =~ /Superdat File for v4x \(Intel Engine only
+\)/) {
                $engine = int @$row[1];
            }
                #print "   ", join(' , ', @$row), "\n";
        }
    }
        return($dat, $superdat, $engine);
}
[download]