#! /usr/bin/perl -w
  use strict;
  use M;
  my $m = M->new;

##</code><code>##

  package M;
  sub new {1};
  1;