#! perl -slw use strict; use Term::ReadKey; sub key{ my $key; ReadMode 4; 1 while not defined( $key = ReadKey(0.1) ); ReadMode 0; return $key; } my @c = (32..127); @c = sort { system 'cls'; print chr($a) x 16, ' ', chr($b) x 16, ' ', chr($a) x 16, ' ', chr($b) x 16 for 1 .. 8; print ''; print chr($b) x 16, ' ', chr($a) x 16, ' ', chr($b) x 16, ' ', chr($a) x 16 for 1 .. 8; print ''; print chr($a) x 16, ' ', chr($b) x 16, ' ', chr($a) x 16, ' ', chr($b) x 16 for 1 .. 8; print ''; print chr($b) x 16, ' ', chr($a) x 16, ' ', chr($b) x 16, ' ', chr($a) x 16 for 1 .. 8; print ''; print 'Enter 1 if top left is darker, 2 if they are the same, 3 if top right is darker'; key()-2; } @c; print $_, ' : ', chr() x 50 for @c;