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