#!/usr/bin/perl
open (HTML, "-|") or exec("tail","-f","testlog.txt");
print while ;
####
[gmassyn@apt01m04 gmassyn]$ ps -ef |grep test
gmassyn 7755 7712 0 21:57 pts/0 00:00:00 /usr/bin/perl ./testb.pl
gmassyn 7756 7755 0 21:57 pts/0 00:00:00 tail -f testlog.txt
gmassyn 7758 7712 0 21:57 pts/0 00:00:00 grep test
[gmassyn@apt01m04 gmassyn]$ kill -9 7755
[gmassyn@apt01m04 gmassyn]$
[1]+ Killed ./testb.pl
[gmassyn@apt01m04 gmassyn]$ ps -ef |grep test
gmassyn 7756 1 0 21:57 pts/0 00:00:00 tail -f testlog.txt
gmassyn 7764 7712 0 21:57 pts/0 00:00:00 grep test
[gmassyn@apt01m04 gmassyn]$