Select Code to Download

package Foo;
use File::Spec::Functions qw(rel2abs);
...

print "Foo directory: $dir\n";
1;