#!/usr/bin/perl

system('tail -F chatlog.txt');