RosettaCodeData/Task/Terminal-control-Dimensions/Perl-6/terminal-control-dimensions.pl6

my $stty = qx[stty -a];
my $lines = $stty.match(/ 'rows '    <( \d+/);
my $cols  = $stty.match(/ 'columns ' <( \d+/);
say "$lines $cols";