Help for this page

Select Code to Download

Select or download this

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