Select Code to Download

package coolobject;

...
    my $self = shift;
    return undef;
}

my $obj = coolobject->new or die "$!";