#!/usr/bin/perl -w
use strict;
use warnings;

use LWP::UserAgent; 
use HTTP::Request::Common qw{ POST };
use CGI;
use HTTP::Cookies;
use Crypt::SSLeay;

$ENV{HTTPS_CA_DIR} = "/opt/certs";
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

my $md5 = '0000';
my $url = 'https://speedport.ip/cgi-bin/login.cgi';

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

$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8) Gecko/20051111 Firefox/1.5");

  $ua->cookie_jar(
        HTTP::Cookies->new(
            file => 'mycookies.txt',
            autosave => 1
        )
    );

my $request = POST( $url, [ 'pws' => $md5 ] );


my $content = $ua->request($request)->as_string();

my $cgi = CGI->new();
print $cgi->header(), $content;