package MyAgent;

use base 'LWP::UserAgent';

sub get_basic_credentials {
	return 'admin', 'password';
}

package main;

my $agent    = MyAgent->new;
my $response = $agent->get( 'http://192.168.0.1/st_devic.html' );

print $response->code;