#!/usr/bin/perl
# perl hplcd.pl ip "message"
use IO:Socket;
$ip = $ARGV[0];
$display = $ARGV[1];

my $socket = new IO::Socket::INET ( PeerAddr =>$ip, PeerPort => '9100', Proto => 'tcp',);
die "socket error $!\n" unless $socket;
print $ "\@PJL RDYMSG DISPLAY = \"$display\"\n";
close($socket);
print "\nDone LCD Change";