Select Code to Download

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

sub init { 1; }

sub init {
  my $self = shift;
...
    return 0;
  }
}