Select Code to Download

sub example {
    my $number = shift;
...
    print "Still here\n";
  
}

   my $value = eval {
       # Do stuff;
       return 4;
   };

   my $value;
   eval {
       # Do stuff;
       $value = 4;
   };