$ cat test
do('test2');
print "var=$var\n";

$ cat test2
$var="test variable";

$ perl test
var=test variable