Help for this page
$obj = eval( $blob ) or die $@;
$blob =~ s/^\$VAR\d+\s*=//; $obj = eval( $blob ) or die $@;