Select Code to Download

package MyPkg;

...
    my $self = shift;
    return $Instances[$$self]->{score};
}

package SomeClass;

...
    .
}