>type M.pm
package M;
BEGIN { return 1; }
print "Point A\n";
return 1;
print "Point B\n";
1;

>perl -e "use M;"
Point A