source make_frag
source make_ping

make_ping p_pkt 1000

pset p_pkt ip src 129.146.86.46
pset p_pkt ip dst 129.146.163.50
ether.src 8:0:20:77:a4:33
ether.dst 00:00:0c:50:46:70

popen ether i /dev/le 

pinit ether eth

pcopy eth/end p_pkt/ip p_pkt/data
pset eth ether type 0x800

puts [ ptbl eth]
pset eth ip cksum 

i.send eth


pinit ether foo
i.recv foo
puts [pread foo l 0 20]
puts [plist foo ]
puts [plist foo ip]

pfree foo
pfree p_pkt
pfree eth
pclose ether i
