package Foo;
   use strict;
 
   sub foo {
     print "Foo\n";
   }
   1;