Select Code to Download

sub activate {
  my $self = shift;
...
  };
  $self->error($@) if $@;    # failed something, go to safe mode
}

sub respond {
  my $self = shift;
...

  return $response_page;
}