use IO::Socket; my $host = 'INSERT IP HERE'; my $port = '9100'; #jet direct port my $eoln = "\x0A"; $msg = 'Insert $0.25 and Press Go to Continue'; my $sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp'); die "Couldn't connect to $host on $port: $!\n" unless $sock; print "Connected\n"; $printer{"escapeseq"} = chr(27) . "%-12345X\@PJL"; $printer{"input"} = "\@PJL OPMSG DISPLAY= \"$msg \" $eoln"; $printer{"last"} = "\x1B&k3G"; foreach $key (sort(keys %printer)){ if ($key eq "escapeseq"){ syswrite($sock, $printer{$key}, $len); }else{ my $len = length $printer{$key}; unless(syswrite($sock, $printer{$key}. chr(27), $len) == $len) { $sock->close; print "Server unexpectedly closed connection\n"; last; } } }