Select Code to Download

/opt/myapps/-----+
      |          |
...
                          login.cgi
                             |
                         members.cgi

package Super;
use warnings;
...
                                       },
                      SEND_COOKIE   => 1,
                     );

package Login;
use base qw(Super);
...

# I could pass it with return $self->redirect('/manage/members.cgi?id=
+'.$member_id), but clunkier

#!/usr/local/bin/perl -T
use lib "/opt/myapps/";
...

my $app = Acmecorp::Members->new();
$app->run();

package Members;
use base qw(Super);
...
my $member_id = $self->session->param( 'member_id' );

**** query the DB with the member's id *****