use lib "modules";
use upload;
print $upload::variable;

##</code><code>##

print $_ . " => " . $INC{$_} . "<br>" for keys %INC;