package M;
use strict;
require Exporter;
our @ISA = qw[ Exporter ];
our @EXPORT = qw[ x ];

sub x{
	my( $sub ) = @_;
	&$sub;
}
1;