Select Code to Download

sub my_sub {
   # do stuff
   eval { potential icky bit };
...
unless ( $result = my_sub() ) {
   # use $@ to figure out what to do
}

unless ( $result = my_sub() ) {
   # handle error condition based on error var
}