#!/usr/bin/perl
use Term::Size;

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

print "$col x $row\n";

##</code><code>##

#!/usr/bin/perl

my $rcmd = "./rcmd.pl";

if (open my $cmdh, "$rcmd |") {
    print <$cmdh>;
}

##</code><code>##

$ ./699419.pl
120 x 50

$ ./699419.pl </dev/null     # doesn't work
 x