#!/usr/bin/perl -w
use strict;
use HTML::TokeParser;
use LWP::Simple;

my $source = get( shift || 'http://www.perlmonks.org' );
my $parser = HTML::TokeParser->new( \$source );

while ( my $tag = $parser->get_tag( 'meta' ) ) {
    print $tag->[3], "\n";
}

print "Done.\n";