Select Code to Download

$exit = &command( "/bin/snore", 60 );

eval {
  local $SIG{ALRM} = sub { die "alarm clock restart" };
...
  alarm 0;
};
if ($@ and $@ !~ /alarm clock restart/) { die }

#! /usr/bin/perl
use strict;
...
  if( $@ ) { return undef    }
  else     { return $? / 256 }
}

my JAPH:
  print"Just another Perl hacker\n";
  #    ^ look, no space! pretty tricky hey?