sub getLink2{
	my ($self, $how, $what) = @_;
	my $agent = $self->{agent};
	#my $links = $agent->Document->links;
	my $links = $agent->Document->all->tags("a");
	my $target_link = __getObject($links, $how, $what) if ($links);
	my $link_object;
	if ($target_link){
		$link_object = Win32::IEAutomation::Element->new();
		$link_object->{element} = $target_link;
		$link_object->{parent} = $self;
	}else{
		$link_object = undef;
		print "WARNING: No link is  present in the document with your specified option $how $what\n" if $warn;
	}
	return $link_object;
}