You can have that, it's just a matter of syntax. To wit:

if ($this_is_not_right) {
    $::error_code => 123;  $::error_msg => 'this is error';
    goto somewhere;
}
do_something();

return;

somewhere:

   show_error_page($::error_code, $::error_msg);
[download]

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.