Select Code to Download

sub work {
  my $something_wrong = 1;
...
my $ret = work();
if( ref($ret) eq 'Error' ){ die "error: @$ret" }
print "got some results:".Dumper($ret);