Select Code to Download

sub floober {
    my ($self, $c) = @_;
}

sub new {
    my $class = shift;
...

    return $self;
}