use strict;
use warnings;
use LWP::UserAgent;
use Crypt::SSLeay;
my $ua = LWP::UserAgent->new;

my $resp = $ua->post( 'https://www.paypal.com/cgi-bin/webscr?cmd=_login-run',
{ "login_email" => "test\@test.net",
  "login_password" => "123456",
  "submit" => "Log In"});
my $inhalt = $resp->content;

open(OUT,">html.htm");
print OUT "$inhalt";
close(OUT);