my @test = qw( fake -b -v 5);
use IPC::Run qw(run);

##</code><code>##

run \@tester, \$in, \$out;
run \@tester, '>pty>', \$in, '>pty>', \$out;