Select Code to Download

use strict ;
use warnings ;
...
;
print (STDOUT "\n");
for $_ (@b) {print (STDOUT $_)}