#!/usr/bin/perl 
use HTTP::Cookies::Netscape;
use LWP::UserAgent;
use LWP::Simple;
my $browser = LWP::UserAgent->new( );
$cookie = HTTP::Cookies::Netscape->new(
        file => "$ENV{HOME}/nettby/cookie",
        autosave => 1
);

$browser->agent("Mozilla/4.0");
$browser->cookie_jar($cookie);
        my $response = $browser->post("http://www.nettby.no/sb_login.php", {
                 "email" => "email",
                "password" => "password",
        });
                my $content = $response->content; 
                print $content;
getprint "http://www.nettby.no/user";