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

##</code><code>##

#!C:\Perl\bin

use diagnostics;   use strict;

print "\n\nbefore use\n\n";
use ScrewyModule;
print "\n\nafter use\n\n";