Select Code to Download

$ cat test
do('test2');
...

$ perl test
var=test variable

do($filename) 
   or die "$filename: " . ($! ? $! : $@);