open my $hl, "|-", @cmd or die "open $what: $!";
syswrite $hl, $content // die "$what write: $!";
close $hl or die "$what kid: $!, $?";
open my $hl, "|-", @cmd or die "open $what: $!";
syswrite $hl, $content // die "$what write: $!";
close $hl or die "$what kid: $!, $?";