Hello,

I want to control some tv displays using a perl socket. The displays accept a connection on port 1515 a accept a hexadecimal command.

For example:
AA 11 FF 01 01 12

I have found the following code to open a socket and send text.

1 use IO::Socket; 
2 my $sock = new IO::Socket::INET (
3 PeerAddr => '192.168.1.2',
4 PeerPort => '1515', 
5 Proto => 'tcp', 
6 ); 
7 die "Could not create socket: $!\n" unless $sock; 
8 print $sock "Hello there!\n"; 
9 close($sock);
[download]

After doing a bit of research I think I want to use pack to convert the hex string into bytes. I have taken the following from teh pack manual / tutorial

    my $s = pack( 'H*', $hexcommand );
[download]

Can I use 'print $sock $s' ? If you need any more info just shout, this is my first perl script so bare with me. Thanks, Dan