A simple script to make printers display a silly message

printmsg.pl

#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket::INET;

my ($host, $msg) = @ARGV;
$host ||= '...';
$msg  ||= 'FEED ME A STRAY CAT';
my $port = 9100;

print "setting message on $host to '$msg'\n";
my $sock = IO::Socket::INET->new( PeerAddr => $host,
                                  PeerPort => $port,
                                  Proto    => 'tcp' )
    or die "$0: $host:$port: $!\n";

print $sock qq(\x1B%-12345X\@PJL RDYMSG DISPLAY = "$msg"\r\n\x1B%-12345X\r\n);
print "done\n";