#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

if ( fork )
{
   while ( 1 )
   {
      say "Listening for irc public message";
      my $msg = <STDIN>;
      chomp $msg;
      say "Your message: $msg";
   }
}
else
{
   while ( 1 )
   {
      sleep 15;
      say 'Walking up to read a feed and send a message';
   }
}