#!/usr/bin/perl -w
use strict;
use M;
my $m = M->new;
#
# End of main program
#
package M;
sub new{1};
1;