Random testing blog

sub getPost
{
        my %_POST, $r, @parts;
        %_POST = ();
        read( STDIN, $r, $ENV{ "CONTENT_LENGTH" } );
        @parts = split( /\&/, $r);
        foreach my $p (@parts)
        {
                my($n, $v) = split( /\=/, $p);
                $v = uri_decode($v);
                $_POST{ "$n" } = $v;
        }
        return %_POST;
}

#!/usr/bin/perl
package HTTPerl;
use base 'Exporter';

our sub getPost
{
        my %_POST, $r, @parts;
        %_POST = ();
        read( STDIN, $r, $ENV{ "CONTENT_LENGTH" } );
        @parts = split( /\&/, $r);
        foreach my $p (@parts)
        {
                my($n, $v) = split( /\=/, $p);
                $v = uri_decode($v);
                $_POST{ "$n" } = $v;
        }
        return %_POST;
}

our @EXPORT_OK = ('getPost');
our @EXPORT = {'getPost');
1;