use IO::Socket;

my $sock = new IO::Socket::INET (
                                  PeerAddr => '192.168.11.244',
                                  PeerPort => '6008',
                                  Proto => 'tcp',
                                 )
   or die "Couldn't connect!! $!";

$data = pack("CccccccCcCC",02,65,63,80,81,76,86,03,100,13,10);
print $sock $data ;

while(<$sock>) {
        print $_;
}