Select Code to Download

 #!/usr/local/bin/perl -w
use strict;
my($newline);
...
    print DAT "$line1";}

close DAT;