#!/usr/bin/perl 
use strict; 
use warnings; 
use WWW::Mechanize; 

my $email = 'Sample';
my $password = 'Sample';
my @fields = ("email" , "password");

 

my $browser = WWW::Mechanize->new(
	stack_depth => 0,
	autocheck => 1,
);
$browser->agent_alias( 'Windows IE 6');
$browser->get("http://schülercc.de/");
$browser->submit_form(
	fields => {
	email => $email,
	passwort => $password,
	login => 'button_login_login' }
);



print "you are logged in";