Help for this page

Select Code to Download

Select or download this

use IO::String;

...
...
    select $old_fh;
    $str;
}