Select Code to Download

sub foo {
  if( $error ){
...
}
my $ret = foo();
die "@$ret" if ref($ret) eq 'YouveGotError';

sub fortunecookie {
  my $cookie = ...;
...
  return \$cookie
}
# ok a bit awkward with the stringref but it demonstrates that one can
+ do this with scalars too