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