Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    chomp @lines;
    print join(",", @lines), "\n";
}

$ ./950649.pl infile1 infile2 infile3 ... > outfile