Help for this page
package M; use strict; ... &$sub; } 1;
#! perl -slw use strict; ... P:\test>393046 main_x() called