use warnings;
use Win32::Console;

$console = Win32::Console->new();

$console->Alloc();

die "Can't Alloc()" if !$console;

$console->Size(500, 180, 300);
$console->Write('abcdef' x 80);

$console->Display();

sleep 5; # After 5 seconds program stops, console vanishes
[download]