use Win32::IE::Mechanize;

my $mech = Win32::IE::Mechanize->new( visible => 1);
$mech->get(URL);
sleep(3);
my @links = $mech->links();
$mech->follow_link( text => "ServiceModel");