use WWW::Mechanize;
  use strict;

  my $m = WWW::Mechanize->new();
  $m->get("http://www.thebaseballcube.com/teams/team_32.shtml");
  for my $link ($m->links) {
    #next unless if $link->url() =~ /ad\.php/;
    print $link->url."\n";
  }