"tail -f" in perl

tail-f.pl

#!/usr/local/bin/perl

use strict;
use warnings;

open FILE, $ARGV[0] or die;
my $curpos;
for (;;) {
    for ($curpos = tell(FILE); $_ = <FILE>; $curpos = tell(FILE)) {
        print;
    }
    sleep 1;
    seek(FILE, $curpos, 0);
}