Select Code to Download

sub endEmailPackage {
    my ($SPLITOUT, $splitoutfilename) = @_;
...
    }
    endEmailPackage($SPLITOUT, $splitoutfilename) if $addrectot > 0;
}

open(INFILE, "< $infile") or alert("$!");
logit("Opening $infile for reading");
...
    $data =~ s/\n/\r\n/g;
    print $OFILE $data;
}