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