snippetsmania.com
Post and share your code snippets

## Under UNIX encironment
##
use Term::ReadKey;
my $hsize= ( Term::ReadKey::GetTerminalSize( *STDOUT)) [0];

#--------------------------------------------------------------
## Under Windows environment
##
use Win32::Console;
my $cons= Win32::Console->new();
my $hsize= ( $cons->Info()) [0];

source