Select Code to Download

sub num1 {
    my $self = shift;
    $self->{num1} = shift if @_;
    return $self->{num1};
}