#!C:/perl/bin/perl.exe

use LWP::UserAgent;
use HTTP::Request::Common;


my $url = 'http://tools.immuneepitope.org/tools/bcell/bcell_Prediction';


# Set up the ntlm client and then the base64 encoded ntlm handshake message 
my $ua = new LWP::UserAgent();
    

$request = GET $url;
print "--Performing request now...-----------\n"; 			    
$response = $ua->request($request); 
				    

print "--Done with request-------------------\n"; 			    

if ($response->is_success) {print "It worked!->" . $response->code . "\n"}  

else {print "It didn't work!->" . $response->code . "\n"}                   


#Save the case to the local PC						    

$response = $ua->mirror($url,"c:/test/perlmonks.htm");