# The reader is given the hash reference, the 'o' 
 # indicates this is the 'stdout' reader 
 $hr->{'o_thread'} = threads->create( \&reader_thread, $hr, 'o' );