#!/usr/bin/perl

use Data::Dumper;

die Data::Dumper->Dump([ { # die with a hash value
        "errno" => 1,
        "message" => "I'm dead I am",
} ], [ '*err' ]) . "\n";

1;