Select Code to Download

use strict;
use warnings;
use feature 'state';
...
  print $txt "\x{feff}".join('',@_);
  close $txt ;
}

$ pp pm904757.pl

...

$ perl pm904757.pl
6281  pm904757.pl-out.txt

$ a
6294  a.exe-out.txt

...

$ perl pm904757.pl
6330  pm904757.pl-out.txt