{
    open(my $dummy, "<&STDIN") || open(STDIN, "<", "NUL") || die "open NUL: $!";
}