Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
}
__END__
My name is Fred

#!/usr/bin/perl
use strict;
use warnings;
...
print $dispatch_table{$sub_name}("Fred");
__END__
My name is Fred