my $pty = new IO::Pty;
my $read = $pty->slave;
my ($write,$err);
$ppid = open3($write, $read,$err, "$bin_dir/$bin $args $pidfile");
print "=>" .  $_ while(<$read>);

##</code><code>##

my $pty = new IO::Pty;
local *READ = $pty->slave;
my ($write,$err);
$ppid = open3($write, ">&READ",$err, "$bin_dir/$bin $args $pidfile");
print "=>" .  $_ while(<READ>);