#!C:/Perl/bin/perl -w

use strict;

$| = 1;

use CGI::Carp "fatalsToBrowser";
use CGI ":all";

...

my $res = $ua->get( $url_home );
ParseHomePage( \$res->{_content} );


sub ParseHomePage
{
  my $p = HTML::TokeParser->new($_[0]);
  ...
}