use IPC::Run qw(run new_chunker); # snip-snap-snip # ... my @cmd = qw(find /usr/bin -type f); run(\@cmd, "1>", new_chunker, \&logSdtout, "2>", new_chunker, \&logSdterr); sub logSdtout { $logger->info(@_); } sub logSdterr { $logger->error(@_); }