Select Code to Download

sub do_stuff
{
...
      my $cgi  = shift || new CGI ();
       ...
}

sub do_stuff {
    my ($self, $session, $cgi) = @_;
...

    ...
}