Select Code to Download

package Result;

...
}

1;

require Result;
sub complex_function {
...
  }
  return Result->new(1);
}

unless (my $r = complex_function())
{
  print "Error received: $r\n";
}