Select Code to Download

sub SUBNAME{
    my($this, $VARNAME) = @_;
...
        return $this->{'VARNAME'};
    }
}

sub SUBNAME{
    my($this, $VARNAME) = @_;
...
    }
    return $this->{'VARNAME'};
}

#!/usr/bin/perl -w

...
printf("\ntest1 is currently at: %s\n",$test1->current_status());
printf("\ntest2 is currently at: %s\n",$test2->current_status());
printf("\nsample is currently at: %s\n\n",$sample->current_status());

package sam;

...
    return $top->{'ref'}->status;
}
1;

package tes;

...
}

1;

package status;

...
}    

1;