if (!(my $pid = open(STDOUT, "|-"))) {
    die "fork failed: $!" unless defined $pid;
    while (<STDIN>) {
        print $_;
        print LOG $_;
    }
    exit;
}