main.pl :

 my $cgi = New CGI;
 my $session = new CGI::Session();

 $cgi->param("name", "Barney");

 $session->save_param($cgi); #saves cgi object into session
 $cgi->redirect(URI => "body.pl?sessionid=".$session->id);