#! 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];