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