$s.= pack('D',$count{$ip}{$x}{in});
                $s.= pack('D',$count{$ip}{$x}{out});
                $s.= pack('D',int $count{$ip}{$x}{in});
                $s.= pack('D',int $count{$ip}{$x}{out});
                $s.= pack('D',int $count{$ip}{$x}{inpackets});
                $s.= pack('D',int $count{$ip}{$x}{outpackets});

##</code><code>##

unpack('d',substr($msg,$ptr,8));
unpack('d',substr($msg,$ptr+8,8));
unpack('d',substr($msg,$ptr+16,8));
unpack('d',substr($msg,$ptr+24,8));

##</code><code>##

    D   A long double-precision float in the native format.
        (Long doubles are available only if your system   
         supports long double values _and_ if Perl has been 
         compiled to support those.
         Causes a fatal error otherwise.)