Select Code to Download

#!/usr/bin/perl -w

...

my $c = Class->new("arg");
print ref($c)."\n";

# ./My/Package/Class.pm
...
        return(bless($self,$class));
}
1;