use WWW::Mechanize;
use HTTP::Cookies;

my $cookie_jar = HTTP::Cookies->new();
my $mech = WWW::Mechanize->new(cookie_jar => $cookie_jar);

#weiterer Code