Select Code to Download

my $coderef = \&some_sub;  # $coderef contains a reference to &some_su
+b
my $results = $coderef->();

my $subname = 'some_sub';
my $results = eval "$subname()";
die $@ if $@;

my $results = do { no strict 'refs'; $subname->() };

use strict;
use warnings;
...
42
Hello world!
42