perl -Mstrict -le "sub P::p{print 'p'};my $p=bless {},'P';my $m='p';$p->$m;"