Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    do $filename;
    eval $sub;
}

#cat other.pl

sub hello {
    print "hello world\n";
}

# cat other2.pl
sub hi {
    print "hi, world!\n";
}

$ perl test_runtime.pl 1 other.pl hello

$ perl test_runtime.pl 2 other2.pl hi
$ perl test_runtime.pl 3 other2.pl hi

 _  _ _  _  
(_|| | |(_|><
 _|