Select Code to Download

use IO::Handle;
my $fh = *STDIN;
...
  print "$data";   # split $data into lines on CR|LF put the first lin
+e on the end of the last line of the previous block (use an array per
+haps)
}