Help for this page
#!/usr/bin/perl -wT use strict ... EOMEOM close ($fh); exit;
#!/usr/bin/perl -wT use strict; ... printf $fh $tainteddata, "\n"; close ($fh); exit;