Help for this page

Select Code to Download

Select or download this

use strict;
use PerlIO::scalar;

...
    close($file);
    print $output;
}