#!/usr/bin/perl
use WWW::Mechanize;
use HTML::TokeParser;

my $agent = WWW::Mechanize->new();
$agent->get( @ARGV[0] );
my $stream = HTML::TokeParser->new( \$agent->{content} );
if ( $stream->get_tag("nobr") ) {
    my $info = $stream->get_trimmed_text;
    my @members = split /\s+/, $info;
    print @members[3], " ", @members[6];
}