Hi all Seeking some wisdom here... I am trying to combine these 2 modules, so that I can have the perlscript do a "tail -f"
on one file and then chat the output to a channel..
I can get 2 separate programs with each module to work, but when I combine them I get an error message.
What I am aiming for is to used the addfh routine to tie in the open File::Tail filehandle and trigger an event in the Net:IRC structure... makes sense?

Anyhow, errormess is :
Not a GLOB reference at /usr/lib/perl5/5.6.1/i386-linux/IO/Select.pm line 61.

and this is part of the code...

#!/usr/bin/perl -w
use Net::IRC;
use File::Tail;

$name="./totte.log" ;
 $file=File::Tail->new(name=>$name,debug=>$debug,interval=>1,maxinterv
+al=>5,
                          adjustafter=>20,errmode=>"return") or
                              die "Could not open $name: $!";

sub on_logentry {
        my $INPUT = shift;
        my $line=$file->read;
        printf "$line";
        printf <$INPUT>;
}


# Setup the connection variables--- 
my $irc = new Net::IRC;

# Add  the external stuff
$irc->addfh( $file, \&on_logentry, 'r');

#  -------------- Start the IRC Connection ----------------
$irc->start;
[download]