Connaître la taille de l'écran

Utiliser le module ReadKey et la fonction GetTerminalSize :

#!/usr/local/bin/perl

use strict;
use Term::ReadLine;
use Term::ReadKey;

my($large,$haut,undef,undef) = GetTerminalSize();

printf("%s / %s\n",$large,$haut);

Dans l'exemple ci-dessus, on ne récupère que les valeurs exprimés en caractères, mais les valeurs 2 et 3 du tableau sont les valeurs exprimés en pizels.