$MySocket->send(pack "H*", "02")