#!/usr/bin/perl
#perl2exe_include "attributes.pm";


use strict;
use warnings;
$|=1;

use Symbol qw( gensym );
use IPC::Run qw( start );
use Tie::Handle;
use IPC::Run::Win32IO;

my %sp;
$sp{'STDIN'} = gensym();
$sp{'STDOUT'} = gensym();
$sp{'STDERR'} = gensym();
	my $h = start
			['./cnc.exe'],
			'<pipe', $sp{'STDIN'},
			'>pipe', $sp{'STDOUT'},
			'2>pipe', $sp{'STDERR'}
		or die "returned $?";

sleep 20;