OK, then I don't get it. I copied your code into my module and ran again with the exact same results (after deleteing "use Whateverelseyouwant;" which caused the expected errors and adding "use CGI qw/:standard/;").

The "use strict;" and "use warnings;" do not become effective in the calling program. As lexical pragmata, I don't see how they could be.

Am I missing something here, or are you just ignoring this issue based on CB with the OP?

Update: I realize I'm not helping people who come here for help by flaming those who attempt to provide solutions. So I promise not to do that anymore and I'm sorry for my previous tone. I also believe, again in the interest of helping those who come here for help, that code that is posted here should either be tested, or clearly marked as untested and I have always tried to do one or the other.

UpUpdate: 3 more ways to see that use strict and use warnings apply by only lexicial scope and not by package:

#!/usr/bin/perl

eval qq[ use strict; use warnings; ];

{ use strict; use warnings; }

sub doit { use strict; use warnings; }

doit();

print "$x\n";
[download]

As shown, this code produces no warnings or errors. Adding either pragma at file scope has the expected effect.

If you've got proof to the contrary, I'd love to see it.

--Bob Niederman, http://bob-n.com