IRC pipe thing

gistfile1.pl

#!/usr/bin/perl
use strict;
use warnings;

use Getopt::Long;
use Sys::Hostname;
use IO::Async::Loop;
use Net::Async::IRC;

my $nick = hostname . "-$$";
my $server = "irc.local";
my $target;
my $text;

GetOptions(
  "nick=s"    => \$nick,
  "server=s"  => \$server,
  "target=s"  => \$target,
  "text=s"    => \$text,
) or die "Bad usage\n";

if (!$text) {
  $text = join "", <>;
} 

my $loop = IO::Async::Loop->new;
my $irc = Net::Async::IRC->new;
$loop->add($irc);

$irc->login(
  nick => $nick,
  host => $server,
)->get;

if ($target =~ /^[#&]/) {
  $irc->send_message("JOIN", undef, $target);
} 

$irc->send_message("PRIVMSG", undef, $target, $_) for split /\n/, $text;
$irc->send_message("QUIT", undef)->get;