#!/usr/bin/perl  -w
use strict;
use warnings;
use DBI;
use CGI qw/:all :html3/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI::Session qw();
use sub test();
my $cgi = new CGI;
print "<html><head>";
my $session = CGI::Session->new((undef, $cgi, {Directory=>"/tmp"}));
$session = CGI::Session->new();
print $session->header;
my $dbh=DBI->connect('DBI:mysql:database=:user=root;host=') || die "Could not connect to database: ". DBI->errstr;

my $group = param('groups');
my $atmcount;
my $regional_office = $session->param('ro');          ///here is am accesing stored session 
my $tmp= $session->param('User_id');

print "regional--->$regional_office";
 my $user = $session->param('user');