#!/usr/bin/perl

use strict;
use warnings;
use Diagnostics;
use open ':utf8';
use open ':std';
use IPC::Open3;
$| = 1;


my $pid = open3( undef, my $read, undef, './test' );


while ( my $line = <$read> ) 
{
	print $line;
}