use strict;
  use URI::Escape;
  use Storable qw(freeze);

  my $hashref={ Foo=>1, Bar =>'string' };
  my $frozen=uri_escape(freeze($hashref));
  my $output=`otherscript.pl $frozen`;
  print $output;

##</code><code>##

  use strict;
  use URI::Escape;
  use Storable qw(thaw);
  use Data::Dumper;

  my $hashref=thaw(uri_unescape(shift @ARGV));

  print Dumper $hashref;