#!/usr/bin/perl -w # apbteambot-say use strict; use IO::Socket::UNIX; my $socketname = '/var/run/apbteambot/sock'; # Client socket. my $socket = new IO::Socket::UNIX (Peer => $socketname) or die $!; while () { print $socket $_; } $socket->close ();