Select Code to Download

$m->session->{user_id} = $User->user_id;

# Create Mason ApacheHandler object.
my $mason = new HTML::Mason::ApacheHandler(
...
   session_handle         => $dbh,
   session_lock_handle    => $dbh,
);