#Poor man's tail -f in perl
open (FILE, shift) or die " Couldn't open your file.";
while(1)
{
    my $line=<FILE>;
    unless (defined($line))
    {
        sleep 1;
        next;
    }
    # Do stuff when you actually get data
}