1package MyModule;
2
3use strict;
4use warnings;
5
6use vars qw($var);
7
8$var = "Bar";
9
10sub function
11{
12    print "In MyModule.\n";
13}
14
151;
16