Select Code to Download

    $handle = IO::Socket::INET->new(
                                    Proto     => 'tcp',
...
                                    PeerPort  => $port,
                                    Blocking  => $blocking,
                                );

   'one-session-key' => bless( {
    ...
               '_handle' => bless( \*Symbol::GEN40, 'IO::Socket::INET'
+ ),
    ...

(in cleanup) Can't store GLOB items at blib/lib/Storable.pm
        (autosplit into blib/lib/auto/Storable/_freeze.al) line 339,
...
        /usr/lib64/perl5/vendor_perl/5.8.8/Apache/Session/Serialize/St
+orable.pm
        line 21