#!/usr/bin/perl -w =head1 NAME tailbot =head1 DESCRIPTION from the fbi bot by richardc, tails a file called 'logfile' to the channel #tailbot. =cut use warnings; use strict; package TailBot; use base 'Bot::BasicBot'; my $channel = '#tailbot'; sub connected { my $self = shift; $self->forkit({ channel => $channel, run => [ qw( /usr/bin/tail -f logfile ) ], }); } package main; TailBot->new(nick => 'tailbot', channels => [ $channel ]) ->run;