How would i assemble/disassemble network packets in perl?