perl -I. -we 'use M1 qw(func);func()'