Select Code to Download

package Foo;
use strict;
...

sub error  { $_[0]->{_errno}  }
sub errmsg { $_[0]->{_errmsg} }

use Foo;
my $thing = Foo->new;
...
  # you can also do if ( $thing->error ) {
  die $thing->errmsg;
}