- or download this
%main::err = (
"errno" => 1,
"message" => "I'm dead I am",
);
- or download this
#!/usr/bin/perl
...
} ], [ '*err' ]) . "\n";
1;
- or download this
# This is our error container
my %err;
...
print $err{errno}; # print our errno
print $err{message}; # print our message
}