33
33
output(DL_HEADER => '802.2');
36
36
my %a = (DL_HEADER => $dl_header);
38
38
my %b = (%a, DL_VLAN => $dl_vlan);
41
41
output(%b, DL_TYPE => 'non-ip');
44
44
my %c = (%b, DL_TYPE => 'ip', IP_OPTIONS => $ip_options);
46
46
my %d = (%c, IP_FRAGMENT => $ip_fragment);
48
48
output(%d, TP_PROTO => $tp_proto);