Funny: Change the HP Laserjet ‘ready’ message

#!/usr/bin/perl
use strict;
use warnings;
 
unless (@ARGV) { print "usage: $0 <ip address> \"<message>\"\n" ; exit }
 
my $ip = $ARGV[0];
shift(@ARGV);
chomp $ip;
 
use IO::Socket;
my $socket = IO::Socket::INET->new(
	PeerAddr  => $ip, PeerPort  => "9100",
	Proto     => "tcp", Type      => SOCK_STREAM
	) or die "Could not create socket: $!";
 
print $socket "\e%-12345X\@PJL JOB\n\@PJL RDYMSG DISPLAY=\"@ARGV\"\n\@PJL EOJ\n\e%-12345X\n";