Select Code to Download

using System;
using System.Runtime.InteropServices; // visible to COM
...
    }

}

use Win32::OLE;

...
$wc->WriteLine( 'this is a test, should have a new line');
$wc->Write( 'this should not have a new line ');
$wc->Write( "This should follow immediately, with a new line\n");

>perl pWrapConsole.pl
this is a test, should have a new line
this should not have a new line This should follow immediately, with a
+ new line