gistfile1.txt

use strict;
use warnings;
use File::Tail::Multi;
use Data::Dumper;

my $ft = File::Tail::Multi->new(
    OutputPrefix => "f",
    Files => [ "/home/leejj/*.pl" ],
    Function => sub { 
	my $line = shift;
	foreach my $data (@{ $line }) {
	    chomp $data;
	    my ($file, $text) = $data =~ /^([^:]+):(.+)$/;
	    print $file."\t".$text."\n";
	}
    },
    NumLines => 5,
    RemoveDuplicate => 0,
);


$ft->read;

__END__
result:

danga.pl                    );
danga.pl             }
danga.pl             );
danga.pl
danga.pl         Danga::Socket->EventLoop;
file_tail.pl         RemoveDuplicate => 0,
file_tail.pl     );
file_tail.pl
file_tail.pl
file_tail.pl     $ft->read;