package Common;
my $session;

#main program
$comm=new Common;
$comm->session="1234";
$temp=$comm->session;
print "$temp";