1use strict; 2use LWP::UserAgent; 3use Net::SSLGlue::LWP SSL_ca_path => '/etc/ssl/certs', SSL_verify_mode => 0; 4 5my $ua = LWP::UserAgent->new; 6$ua->env_proxy; 7my $resp = $ua->post( 'https://service.gmx.net/de/cgi/login', { 8 AREA => 1, 9 EXT => 'redirect', 10 EXT2 => '', 11 uinguserid => '__uuid__', 12 dlevel => 'c', 13 id => 'a', 14 p => 'b', 15}) || die $@; 16print $resp->as_string; 17