print "Try to send....";
my $data = pack("C*", 0x45, 0x53, 0x43, 0x2f, 0x56, 0x50, 0x2e, 0x6e, 0x65, 0x74, 0x10, 0x03, 0x00, 0x00, 0x00, 0x00, 0x50, 0x57, 0x52, 0x3f, 0x0d);
print $socket $data;