Select Code to Download

package foo;
use strict;
...
    do something to $a;
    do something to $b
}

#!/usr/bin/perl
use strict;
...
use $ARGV[0];

blah blah blah