####### ScrewyModule.pm
package ScrewyModule;

use strict;
use warnings;

ScrewySubRoutine();

sub ScrewySubRoutine
{
  print "running the sub\n";
}

return 1;

####### noname.pl
#!C:\Perl\bin
use diagnostics;
use strict;

print "before use\n";
use ScrewyModule;
print "after use\n";

##</code><code>##

running the sub
before use
after use