Select Code to Download

# inc.pl
use vars qw($foo);
$foo = "hello";
1;

# t.pl
use strict;
use vars qw($foo);
do 'inc.pl';
print $foo, "\n";