00000000  01 00 00 00 6A                                     ....j

00000000  06 00 00 00 6A C5 20 40  40 01                     ....j. @ @.

#!/usr/bin/perl
use Socket;
$host="us4.auth.garena.com";	#tipa host
$port="7456";	#port
$packet = pack ("H*", '01 00 00 00 6A'); #Формируем пакет

socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$iaddr = inet_aton($host);	# Получаем IP (67.228.162.187)
#$iaddr = 67.228.162.187; # это если знаем IP
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
send (SOCK, $packet, 0); #отправляем пакет
while (){
	recv (SOCKET, $buf, 1514, 0);  		#считываем пакет
	print unpack ("H*", $buf), "\n\n"; 	#вывод в hex
}
close(SOCK);