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

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;
$res->content =~ /(<div class="yfitbg tbtabs">)(<h1>Volume Leaders.*)(Get a)/s;
my $cont = $2;
print $cont, "\n";


exit 0;