Help for this page

Select Code to Download

Select or download this

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

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

Select or download this

    unshift(@ARGV, "-") if @ARGV == 0;
FILE: 
...
            last LINE unless length $line;

        ...