#!/usr/bin/perl
use strict;
use warnings;
use Win32::IE::Mechanize;
    my $ie = Win32::IE::Mechanize->new( visible => 1 );   
	my $url ='http://url/go';
	  $ie->get( $url );

$ie->follow_link (text =>"subForm('UA_Signin','signOff')")|| die"can't find text $!";

# $ie->find_link (url=>"javascript:subForm('UA_Signin','signOff')"); 

##</code><code>##

#$ie->find_link (number=>2);
 # $ie->find_image(image =>"ua/images/button-signoff.gif")|| die"can't find image$!";
  # $ie->find_image(alt =>" ")|| die"can't find image$!";