my $pop = new Mail::POP3Client( USER  => "user_name",
					PASSWORD => "password",
					HOST     => "mail.xxxxx.com",
					USESSL   => 1,
					PORT     => 995,
					DEBUG    => 0,
				  );

	my $num = $pop->Count;
	if($num < 0) {
	print "Error could not connect\n";
	}
	elsif ($num == 0){
	print "================LOGIN SUCESS!\n"; 
	}

	my $url = "http://weblink";							   
	my $m;
	$m = WWW::Mechanize->new(autocheck=>1);
	$m->proxy('http','http://proxy_server');
	$m->proxy('https', undef);

	$m->credentials( "user_name", "password" );
	$m->get($url);      #<============ DIES HERE

	my $link = $m->find_link( text => "A string" );
	if( !defined( $link ) ) {
	print( "Error accessing $url!\n" );
	die;
	}