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

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},
	button => 'button_login_login' 
);



print $browser->content;