#! perl -slw
use strict;
use Storable qw[ freeze ];

my %params = (
   period => 30,
   vid => 'xyz1234',
   person => 'homer',
);

my $encoded = unpack 'H*', freeze \%params;

system qq[otherScript.pl ?arg=$encoded];


##</code><code>##

#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use Storable qw[ thaw ];

my( $name, $payload ) = split '=', $ARGV[ 0 ];

my $params = thaw pack 'H*', $payload;

pp $params;

##</code><code>##

c:\test>oneScript
{ period => 30, person => "homer", vid => "xyz1234" }