my $browser = LWP::UserAgent->new;

$browser->credentials(
        'www.nikolas.tk:80',
        'Personal Folder',
        'nikos' => '********'
);

my $url = 'http://www.nikolas.tk/cgi-bin/games.pl';
my $response = $browser->get($url);


die "Error: ", $response->header('Nikos Personal Folder') || 'Error accessing',
    "\n ", $response->status_line, "\n at $url\n Aborting"
unless $response->is_success;