Select Code to Download

use IPC::Open3 qw( open3 );

...
   $mw->fileevent($from_tail, 'readable' => [ \&input_from_tail, $mw, 
+$file ]);
   $mw->fileevent($tail_err,  'readable' => [ \&sink,            $mw, 
+$file ]);
}