Select Code to Download

use MIME::Base64;

...
        my ($q) = shift;
        return split (/\x00/, MIME::Base64::decode($q->path_info()));
}

my (%data) = ( 'x' => 'y' );  # etc.

...
my ($q) = new CGI;

my (%data) = Uncrush ($q);