use URI::Escape qw( uri_escape );

$form_data = join '&',
             map { my $key = uri_escape($_);
                   my $val = uri_escape($form_data{$_});
                   "$key=$val" }
             sort keys %form_data;