use IPC::Run qw/ run timeout /;
my $in = "foo"; # das was extsub als STDIN bekommen soll
run ["./extsub"], \$in, \my $out, \my $err, timeout( 10 ) or die "error: $?";
print $out;