Select Code to Download

$result=qx(curl -X POST --data "$query" 'https://www.paypal.com/cgi-bi
+n/webscr');

read (STDIN, $query, $ENV{'CONTENT_LENGTH'});
$query .= '&cmd=_notify-validate';
 my ($head,$body) = split( m{\r?\n\r?\n}, qx(curl -X POST --data "$que
+ry" -si 'https://www.paypal.com/cgi-bin/webscr'),2 );
 my ($code) = $head =~m{\A\S+ (\d+)};