my $server 	= qw[host];
my $username 	= "abc"; 
my $password 	= "123";

my $mech = WWW::Mechanize->new();
$mech -> credentials( $username, $password );
$mech -> get( $server ) or die "Unable to connect";