Select Code to Download

#!/usr/bin/perl
use strict;
...
use MyClass;

my $obj = MyClass->new();

package MyClass;
use strict;
...
    print "demolishing...\n";
}
1;