Select Code to Download

sub icmp_recv {
    my $icmp = shift;
...
    }
    return $icmpbuffer;
}

$VAR1 = bless( {
                 '_parent' => undef,
...
Ìäà',
                 'code' => 0
               }, 'NetPacket::ICMP' );