$fh->open("tail.exe --follow=name tls.log|") || die $!;
print("opened: '$fh'\n");
while(my $c = $fh->getc) {  # hangs here. tried getline also
	print("$c");
}
print("closing: '$fh'\n");
close($fh);