(gdb) where
#0  0xff082ce0 in clean_store_context ()
   from /usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/Storable/Storable.so
#1  0xff082f04 in clean_context ()
   from /usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/Storable/Storable.so
#2  0xff08bb98 in do_retrieve ()
   from /usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/Storable/Storable.so
#3  0xff08bf7c in pretrieve ()
   from /usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/Storable/Storable.so
#4  0xff08c548 in XS_Storable_pretrieve ()
   from /usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/Storable/Storable.so
#5  0x9db30 in Perl_pp_entersub () at pp_hot.c:2255
#6  0x91e64 in Perl_runops_debug () at run.c:66
#7  0x23734 in perl_run (sv_interp=0x13c00c) at perl.c:1095
#8  0x1f230 in main (argc=2, argv=0xffbefd0c, env=0xffbefd18) at perlmain.c:51
(gdb) 

##</code><code>##

sub read
{
        my $socket = shift;
        my $timeout = shift || 60;

        return undef unless( _is_valid( $socket ) );
        my $hash;
        local $@ = '';
        eval{
                local $SIG{ ALRM } = sub{ die "ALRM:Read Time Out\n" };
                alarm( $timeout );
                $hash = fd_retrieve( $socket );
                alarm( 0 );
        };

        if( $@ ) {
                return undef;
        }
        return $hash;
}