sub Parse{
		my $self = shift;
		my $html_code = shift;
        my $te = HTML::TableExtract->new( headers => [qw(Severity Advisory Synopsis Date)] );
        my @args = ();
        $te->parse($html_code);
         foreach my $ts($te->tables) {
                foreach my $row ($ts->rows) {
                        push(@args,("\'".join('\',\'',@$row)."\'\n"));
                }
        }
        return @args;
}

##</code><code>##

sub Parse{
		my $self = shift;
		my $html_code = shift;
        my $te = HTML::TableExtract->new( headers => [qw(Severity Advisory Synopsis Date)] );
        my @args = ();
        $te->parse_file('blah.html');
         foreach my $ts($te->tables) {
                foreach my $row ($ts->rows) {
                        push(@args,("\'".join('\',\'',@$row)."\'\n"));
                }
        }
        return @args;
}