Select Code to Download

sub some_sub {
   ...
...

eval "exit(&some_sub)";  # exits block with return value of 5
$returned = $? << 8;     # 5