Select Code to Download

#!/usr/bin/perl

...
  print $outfh "\n";
  }
close $outfh;

x,x,x,x,x,x,x,one,two,three
x,x,x,x,x,x,x,foo,bar,baz
...
x,x,x,x,x,x,x,1,66,4,foo,3,16,1,bax,1,66,4,baz,
x,x,x,x,x,x,x,1,66,4,foo,1,50,3,bar,1,66,4,baz,
x,x,x,x,x,x,x,1,66,4,foo,1,50,3,bar,1,66,4,baz,