Help for this page

Select Code to Download


  1. or download this
        if (open my $cmdh, "$rcmd |") {
    ...
  2. or download this
    my ($col, $row) = Term::Size::chars *STDOUT{IO};
  3. or download this
    my ($col, $row);
if (open my $tty, '<', '/dev/tty') {
    ($col, $row) = Term::Size::chars (defined $tty ? $tty: *STDIN{IO})
+;
    close $tty;
}