Select Code to Download

#~ use strict ;
use warnings ; 
...
print { $marctags[$x] }  $tagdata[$x] ;

}

                print { $files[$i] } "stuff\n";
                print { $OK ? STDOUT : STDERR } "stuff\n";