Select Code to Download

sub test1 {
   eval {return 1};
   return 0;
...
   return $tmp;
}
print test1(), test2();