Select Code to Download

#!/usr/bin/perl
use warnings;
...
      printf $file $IDform . $currentlineform . $layout, @selection;
  }
}

The output filenames are correct and one of them looks like this:

...
    8    112   -46.086   -71.753    88.267
   -8    113   -48.146   -76.799    77.638
    8    114   -41.865   -62.567    86.437