Select Code to Download

sub get_random_room {
    my $self = shift;
...
        return $random_room;
    }    
}

sub get_random_room {
    my $self = shift;
...
    }    
}