use strict;
my $wibble;
do "include.pl";
print $wibble;