#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use Crypt::SSLeay;


my $server = "https://login.uni-mainz.de/cgi-bin/login-cgi";


my $user = "meintollerusername";
my $passwd = "qwert";
my $forward ="www.irgwndwas.de";

my $request = HTTP::Request->new("POST", $server);

$request->header(user => $user, pass => $passwd, forward => $forward );

my $agent = LWP::UserAgent->new();

$agent->timeout(5);
my $response = $agent->request($request);

print( %$response );

if ($response->is_success) { print "Anmeldung erfolgreich\n";}
else { print "Anmeldung fehlgeschlagen\n"; exit(1);}