my $r = shift;
...
$out = $r->spawn_proc_prog($command);