Select Code to Download

sub foo {
    #...
...

my $error = foo();
print $error->{errno}, $error->{errmess};

sub foo {
    #...
...
}

my ( $errno, $errmess ) = foo();

if ($var = 0) {

use strict;
use warnings;