sub getsearchresults{
     my $self = shift;
	$self->login;
	my $query = $ENV{'QUERY_STRING'};
    my $searchurl = 'https://secure.url.net/agent/loadsearchresults.asp?' . $query;
     my $res;
    $res = $self->{ua}->get($searchurl)->content;
    print $res;
    exit;
}