Help for this page

Select Code to Download

Select or download this

use strict;

...
  # do desired mangling here
  print $writer "$_";
}