Select Code to Download

sub make_sub {
  my ( $sub_name, $code ) = @_ ;
...
say_hello( 'World' );
__END__
Hello World

package MyFunctions;
# save this as MyFunctions.pm
...


1;

#!/usr/bin/perl
# save this as program.pl
...
chomp( my $arg = <STDIN> );

MyFunctions->$action( $arg );

$ perl program.pl
action> list_dir
...
foo
bar
baz