$host = 'https://pilot-payflowpro.paypal.com';

@parm_list = ('TRXTYPE' => 'S',
'TENDER' => 'P',
'ACTION' => 'S',
'PWD' => $verisign_pwd,
'USER' => $verisign_usr,
'VENDOR' => $verisign_usr,
'PARTNER' => $verisign_prt,
'CANCELURL' => 'http://www.proposalkit.com',
'RETURNURL' => 'http://www.proposalkit.com',
'AMT' => '42.00');

@pf_headers = ('Content-Type' => 'text/namevalue');

my $browser = LWP::UserAgent->new();
if ($browser ne null) {
$browser->timeout(90);
$browser->agent('Cyber Sea Server');

my $response = $browser->post($host, [ @parm_list ], @pf_headers);

}