Help for this page

Select Code to Download


  1. or download this
    %main::err = (
        "errno" => 1,
        "message" => "I'm dead I am",
);
  2. or download this
    #!/usr/bin/perl

...
} ], [ '*err' ]) . "\n";

1;
  3. or download this
    # This is our error container
my %err;
...
  print $err{errno}; # print our errno
  print $err{message}; # print our message
}