#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTML::TokeParser::Simple;

my $ua = LWP::UserAgent->new;

# Define user agent type
$ua->agent('MyApp/0.1 ');

# Request object
my $req = GET 'http://finance.yahoo.com/actives?e=us';

# Make the request
my $res = $ua->request($req);

my $con = $res->content;

#print "$con\n";

my $p = HTML::TokeParser::Simple->new( \$con );

while ( my $token = $p->get_token ) {
    # This prints all text in an HTML doc (i.e., it strips the HTML)
        next unless $token->is_text;
	print $token->as_is, "\n";
     }

exit 0;