Select Code to Download

open my $in1, '<', \$File1;

open my $in1, '<', $file1 or die "Can't open '$file1': $!\n";

open my $out, '>', $fileOut or die "Can't create '$fileOut': $!\n";

    print $out $line1, ',', (split ',', $line2)[-1];