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