Select Code to Download

sub new {
    $_[0]->{class} = shift;
...
    my $self = {};
    return bless $self, __PACKAGE__;
}