use WWW::Mechanize;
use strict;
    my $mech = WWW::Mechanize->new();
my $url = "http://www. thebaseballcube. com/teams/team_32. shtml"; 
    $mech->get( $url );

 $mech->find_all_links();