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

##</code><code>##

$MySocket->send("\x02")