#!/usr/bin/perl

use IPC::Open2;

my $toExec = "testfigure.exe";
my @xList = (1,2,3,4,5);
my $ret;

local(*WR, *RD);

my $pid = open2(\*RD, \*WR, $toExec);
    
    my $length = @xList;
    print WR "$length\n";
    
    foreach my $xVal (@xList){
        print WR "$xVal\n";
    }
    
    print WR "3\n";
    
    while($ret = <RD>){
        print;
    }

waitpid($pid,0);