Select Code to Download

sub start {
    while (1) {
...
    };
    ...
}

sub authenticate {
    my ($self, $session) = @_;
...
    };
    ...
}