use warnings;
use strict;

use Digest::SHA1 qw( sha1_hex );
use WWW::Mechanize;
use HTTP::Cookies;
use LWP::Debug qw(+);

login($ARGV[0], $ARGV[1]);

sub login 
{
	my ($user, $pass) = @_;
	
	my $kennung = sha1_hex("$user + $pass");
	
	my $cookie_jar = HTTP::Cookies->new(
		file => "/cookies/$kennung.dat",
		autosave => 1,
	);
	
	my $mech = WWW::Mechanize->new( cookie_jar => $cookie_jar );

	my $resp = $mech->get( 'http://www.perlmonks.org?node_id=109' );

	die "HTTP-Error 1\n"
		unless $resp->is_success;

	$resp = $mech->submit_form(
		form_name  => 'login',
		fields => {
			user     => $user,
			passwd   => $pass,
		}
	);

	die "HTTP-Error 2\n"
		unless $resp->is_success;

	if ( $resp->content =~ /<a href="\?node_id=109;op=logout">/ )
	{
		print "log in ok";
	}
	else
	{
		print "could not log in";
	}
}