Select Code to Download

use strict;
use warnings;
...
   print join(',',@fields);
   print "\n"
}

#!/usr/bin/perl
use strict;
...
        }
}