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

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

  print Dumper $hashref;