#! perl -slw
use strict;
use M;

sub _x{ print __PACKAGE__ . "_x() called" }

x( \&_x );

__END__
P:\test>393046
main_x() called