my $A = new IO::String ($data);

&exhaust_file_handle($A);    # read everything from $A
$A->setpos(0);               # rewind
&also_exhaust($A);           # 2nd process reads everything from $A