Select Code to Download

sub new {
    my ($class)=@_;
...
    return $self->{_roundnum};
}
################################

use round;
my $test=new round{roundnum=>1}
$testval=$test->roundnum;
print $testval