Select Code to Download

#!/usr/bin/perl
use Term::ReadKey;
...

print "$wchar\t$hchar\t$wpixels\t$hpixels\n";

#!/usr/bin/perl

...

print "screen size is $rows x $cols\n";