Select Code to Download

foreach $key (keys %form_data) {
    my $temp1=$key;
...
    $form_data.=$temp1.'='.$temp2.'&';
}
$form_data=~s/\&$//;

$form_data = join('&', map {
                            s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1)
+)/seg;
                            $form_data{$_} =~ s/([^A-Za-z0-9])/sprintf
+("%%%02X", ord($1))/seg;
                            "$_=$form_data{$_}";
                            } sort keys %form_data);