if (0) { print "This block is happening!\n"; use Win32; } print "$_\n" for keys %INC; __DATA__ Exporter.pm Carp.pm strict.pm vars.pm Config.pm warnings/register.pm warnings.pm DynaLoader.pm AutoLoader.pm Win32.pm <------- Perl sees all uses (almost)