#!/usr/bin/perl

system('tail -F chatlog.txt');
##</code><code>##

$on = "true";
while ($on = "true") { ... }