use HTTP::Request::Common qw(POST);  
use LWP::UserAgent; 
  
$ua = LWP::UserAgent->new();  
my $req = POST 'https://www.paypal.com/cgi-bin/webscr', [ 
 cmd => '_xclick', 
 business => 'user@domain.com', 
 item_name => 'Item name', 
 amount => 20, 
]; 
$content = $ua->request($req)->as_string; 
print "Content-type: text/html\n\n"; 
print $content;