#Passive check for down socket
my $sin = "";
               
vec($sin, fileno(SESSION),1 ) = 1;
my $nfound = select($sin, undef, undef, .01);
               
if ($nfound != 0){
   if( eof(SESSION) == 1 ){                  
       die "Socket is dead on passive check\n";
   }
}