Recuperer le contenu d'1 page html avec PERL!

Bonjour,

j'ai pris ce script d'internet qui devait me recuperer le contenu d'une page html mais en l'executant rien ne s'affiche, est ce ke vous pouvez me dire pourkoi:
use HTML::Parser;
use HTML::Form;

my $page = get( "https://www.google.co.ma/?client=firefox-a&rls=org.mozilla:fr:official&gws_rd=ssl");

# création de mon parser
my $parser = HTML::Parser->new();

# définition des mes evenements
$parser->handler( text => \&text, "text" );
$parser->handler( start => \&start, "tagname,attr" );
$parser->handler( end => \&end, "tagname" );

$parser->parse($page);

print &get_data();

parser->eof;
{
my $in;
my @data;

sub start {
my ($tag, $attr) = @_;
$in++
if $tag eq 'div'
and exists $attr->{id}
and $attr->{id} eq 'profilename';
}

sub end {
my ($tag) = @_;
$in-- if ($tag eq 'div' and $in='1');
}

sub text {
my ($text) = @_;
push @data, $text if ($in );
}

sub get_data {
#print "in : ".$in;
return @data;
}

}
exit;

Configuration: Windows XP
Firefox 3.0.7