#!/usr/bin/perl open (HTML, "-|") or exec("tail","-f","testlog.txt"); print while ;