1*898184e3Ssthenpackage MyModule; 2*898184e3Ssthen 3*898184e3Ssthenuse strict; 4*898184e3Ssthenuse warnings; 5*898184e3Ssthen 6*898184e3Ssthenuse vars qw($var); 7*898184e3Ssthen 8*898184e3Ssthen$var = "Bar"; 9*898184e3Ssthen 10*898184e3Ssthensub function 11*898184e3Ssthen{ 12*898184e3Ssthen print "In MyModule.\n"; 13*898184e3Ssthen} 14*898184e3Ssthen 15*898184e3Ssthen1; 16