if (open my $cmdh, "$rcmd |") {
    ...

##</code><code>##

my ($col, $row) = Term::Size::chars *STDOUT{IO};

##</code><code>##

my ($col, $row);
if (open my $tty, '<', '/dev/tty') {
    ($col, $row) = Term::Size::chars (defined $tty ? $tty: *STDIN{IO});
    close $tty;
}