use LWP::Simple;
use HTML::Parser;
use Data::Dumper;

my $data = get('http://www.spydersubmission.com');

my $p = HTML::Parser->new(
    api_version => 3, 
    start_h     => [ \&start, "self,tagname,attr" ],
);
sub start {
    my ( $self, $tagname, $attr ) = @_;
    return unless $tagname eq 'meta';
    my $name = $attr->{name} || $attr->{'http-equiv'} || undef;
    return unless defined $name;
    $self->{meta}->{$name} = $attr->{content} || 'NULL';
}
$p->parse($data);
$p->eof;

print Dumper $p->{meta};