Select Code to Download

# Get POSTED info and stick it in $post_info.
read (STDIN, $post_info, $ENV {'CONTENT_LENGTH'} );
...
    $temp =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    @InfoArray [$n] = $temp;
    }