rename:     unless (open(TTYIN, "</dev/tty") && open(TTYOUT,">/dev/tty")) { ... }

tcgrep:     no strict "refs";
tcgrep:     # use same handlename as filehandle for better warn/die messages
tcgrep:     unless (open($file, $file)) { ... }

unichars:   open(STDOUT, "|- :utf8", $his_pager, @pager_args);

unilook:    # can't do this many arguments in old perls
unilook:    if ($] >= 5.013_000) {
unilook:        open($look_fh, "-| :utf8", $lookpath, $look_word,  $DB_Name,   );
unilook:    } else {
unilook:        open($look_fh,            "$lookpath '$look_word' '$DB_Name' |");
unilook:        binmode($look_fh, ":utf8");
unilook:    }

unilook:    open(my $raw_db, "< :utf8", $DB_Name);

unilook:    open($agrep_fh, $arg_string);

unilook:    open(STDOUT, "|- :utf8", $his_pager);

uninames~:      my $unistd    = "$Config{privlib}/unicore/NamesList.txt";
uninames~:    my $mode_in   = "< :encoding(Latin-1)",
uninames~:    my $mode_out  =   ":utf8";
uninames~:    open(my $fh, $mode_in, $unistd)     
uninames~:       || die "can't open $mode_in '$unistd': $!";

uninames:   open(STDOUT, "| $pager")
uninames:       || die "can't open STDOUT to $pager pipe: $!";

uniprops:   open(my $pod_fh, "< $unipod")
uniprops:       || die "can't open $unipod: $!";
uniprops:   open(STDOUT, "| $pager")
uniprops:       || die "can't open pipe to $pager: $!";