Help for this page

Select Code to Download

Select or download this

use IPC::Run qw( run );

...
run
   [ "/bin/ls" => ( "-l", $File::Find::name ) ],
   '<', \"", '>', $fh;