print "ttl => " . unpack("L", $ttl) . "\n";