##</code><code>##

use strict;
use warnings;
use 5.010;
use IPC::Run qw(run);


my $in = 'test text\n';

run ['C:\WINDOWS\system32\notepad.exe'], $in;

##</code><code>##


##</code><code>##


##</code><code>##