main::(j:5):	my $proc = spawn( sub { print "hello\n" } );
  DB<1> n
main::(j:6):	warn ref $proc->stdin;
  DB<1> n
IO::Handle at j line 6.
 at j line 6.
main::(j:7):	print {$proc->stdin} "x\n";
  DB<1> n
main::(j:7):	print {$proc->stdin} "x\n";
  DB<1> n
mark@mlt:~/src/sys-cmd$