perlでssh tail -fをいい感じに

ssh_tailf.pl

use strict;
use warnings;

my $host = $ARGV[0] or die;
my $ssh = 'ssh -t';
my $cmd = 'tail -F -n0 /tmp/hoge.log';

my $pid = open my $fh, '-|', qq/$ssh $host '$cmd'/ or die;
while (<$fh>) {
    if (/hoge/) {
        print $_;
        last;
    }
}

kill TERM => $pid;
close $fh;

print "finished\n";

__END__
local$ perl ssh_tailf.pl host1
                                        host1$ echo fuga >> /tmp/hoge.log
                                        host1$ echo hoge >> /tmp/hoge.log
hoge
Killed by signal 15.
finished
local $

Killed by signal 15.を消したいのだが、pipeのopenでshでstderrを/dev/nullに捨てるとkill送ったらttyがおかしくなるので仕方なく。