Select Code to Download

sub param {
   my ($self,$param) = @_;
   return $self->{'r'}->param($param);
}

my $self = {
   r     => CGI->new(),
   html  => undef,
   redir => undef,
};

sub output {
   my $self = shift;
...
      # etc ...
   }
}