Select Code to Download

use warnings;
use strict;
...
sub get_config { return "Foo!" }

1;

use warnings;
use strict;
...
sub get_config { return "Bar!" }

1;

use warnings;
use strict;
...

print $foo->(), "\n";  # prints "Foo!"
print $bar->(), "\n";  # prints "Bar!"