#! perl -w

use strict;
use Win32;
use Win32::Console;

my $pid;
my $process = Win32::Spawn('testapp', 'testapp.exe with arguments', $pid);

my $CONSOLE = Win32::Console->new();
$CONSOLE->Alloc();

$CONSOLE->Title("Console Control");
$CONSOLE->Display() or die "Cant display Console";

sleep 30;


__END__