#! perl -slw use strict; use MyObjs qw[ :MO :O1 :O2 ]; print for MOErrorOne, O1ErrorThree, O2ErrorFive; __END__ C:\test>t-MyLib.pl 0 102 204