#!/usr/bin/perl use Env qw( $USERNAME ); use File::Tail; use strict; use warnings; my $file = $ARGV[0]; print "$file\n"; my $fileTail = File::Tail->new( name=>$file,maxinterval=>5,tail=>-1); my $line; while ( defined( $line = $fileTail->read ) ) { print $line; } exit;