Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 9 lines (6 sloc) 139 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use Term::ReadKey;
my ($x, $y, $px, $py) = GetTerminalSize;
print "${x}x$y (${px}x$py)\n";