my $h = harness \@cmd, \<<IN, \$out;
blah
IN
run $h;
$h->signal('INT');
$h->finish;