Select Code to Download

sub mail {
        local $self = shift;
...
        local $session = $q->param('session');
....
}

sub mail {
        my $self = shift;
...
        my $q = $self->query();
        my $session = $q->param('session');
}