use Win32::Console; 
my $CONSOLE=Win32::Console->new;
$CONSOLE->Title('This is a new title - Huzzah!');