% perl -Ilib -MTest1 -e1