#!c:\xampp\perl\bin\perl.exe -w
# Provides the path to the perl interpreter

# Purpose: Script for parsing html, especially information in tables
# Version: 0.1

use strict;
use warnings;
use HTML::TableExtract;

my $html_file = "http://www.securityfocus.com/bid";
my $row = "row";
my $te = "table extract";
my $ts = "table search";

my $bid = "bugtraq id"
for (my $bid = 1; $bid <= 30000; $bid++) {
print "<table border=1 cellspacing=0>";
}

 $te = HTML::TableExtract->new( depth => 1, count => 0 );
 $te->parse_file($html_file);
 foreach $ts ($te->tables) {
    print "Table found at ", join(',', $ts->coords), ":\n";
    foreach $row ($ts->rows) {
       print "   ", join(',', @$row), "\n";
    }
}