Select Code to Download

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

  package M;
  sub new {1};
  1;