You should really consider using a module for this, piping to Sendmail et al can be problematic and is not considered a good practice. There are a number of Perl modules that will send e-mail (and attachments) directly via SMTP, and allow you to do so with less code. My personal favorite is Mail::Sender, but Mime::Lite is also quite popular, and there are many others that can be found by searching CPAN.

While I concur with hangon's endorsement of Mime::Lite, I primarily wanted to offer you a couple of notes:

First, you go through the trouble of ripping through your argument list, but in some cases, you're just passing the same argument list to another function and returning. I'd suggest you change the start of your sub to something like this:

sub send_mail {
    $CONFIG{mail_format} = 2;

    if($smtp_path =~ /\w+/){
        $CONFIG{mailprogram} = $smtp_path;
        $CONFIG{mailuser}    = $smtp_user;
        $CONFIG{mailpass}    = $smtp_pass;

        return &send_mail_NT(@_);
    }
[download]

Some may argue against this suggestion: If you change the argument list to your sub, then you'll have to make changes to call the send_mail_NT function anyway. But since you already have another send_mail function, it's advisable to use compatible argument lists. (Note: I also removed the creation of the $VAR{res} slot which you use only to hold a return value.)

Second, you're constructing a hash from your arguments, but you don't need any hash features in your sub, so it's just a lot of extra typing. I'd suggest you just split your argument list into named variables and use them throughout your sub:

    my ($sndrEml, $sndrNme, $rcvrEml, $rcvrNme, $subject, $message, $c
+crcEml, 
        $ccrcNme, $attPths) = @_;
[download]

Third, you perform identical operations on several values. You might want to either (a) create a sub to handle the task, or (b) do them all in a single statement. For example, your statements:

    $sndrNme =~ s/\&lt;/\</ig;
    $rcvrNme =~ s/\&lt;/\</ig;
    $subject =~ s/\&lt;/\</ig;
    $ccrcNme =~ s/\&lt;/\</ig;

    $sndrNme =~ s/\<.*?>//ig;
    $rcvrNme =~ s/\<.*?>//ig;
    $subject =~ s/\<.*?>//ig;
    $ccrcNme =~ s/\<.*?>//ig;
[download]

sub _clean_value {
    local $_ = shift;
    s/\&lt;/\</ig;
    s/\<.*?>//ig;
    $_;
}
[download]

allowing you to clean up your values like this:

    $sndrNme = _clean_value($sndrNme);
    $rcvrNme = _clean_value($sndrNme);
    $subject = _clean_value($subject);
    $ccrcNme = _clean_value($ccrcNme);
[download]

Alternately, if you don't think it's worth a subroutine, you could perform all the operations at one go by taking advantage map, like so:

    ($sndrNme, $rcvrNme, $subject, $ccrcNme) = map {
        s/\&lt;/\</ig;
        s/\<.*?>//ig;
        $_;
    } ($sndrNme, $rcvrNme, $subject, $ccrcNme);
[download]

Finally, your sub serves two purposes, and it's better to break down your program such that each sub serves a single, well-defined purpose. The first purpose your sub has is to decide between methods used to send an EMail. The second is to actually send the EMail. So I'd suggest you chop up your sub into something like this¹:

Notes:

1. Since $CRLF is defined as "\n", I removed the s/\n/$CRLF/ig statement.
2. You explicitly set $CONFIG{mail_format} to 2, so I removed code for other value(s).
3. I didn't add any error checking where it's obviously missing (e.g. on open statement).
4. I tried to leave most of your code alone, other than the suggestions made.
5. Standard disclaimers apply: Untested code, you can keep all the pieces when it breaks, most work left as an exercise for the reader, yadda yadda yadda.

...roboticus

Update: Node seems to be a bit long, so I added readmore tag to shorten it a bit; also fixed a footnote reference.

Alternately, if you don't think it's worth a subroutine, you could perform all the operations at one go by taking advantage map, like so:

The map function sets $_ to be an alias to each value in the list. When you change $_ you change the list. Therefore, you don't need to assign back to the original variables - they are already changed.

If you don't assign back to the original variables then map will be in void context. If you find map in void context to be troubling (as I do), you can use do and foreach instead, as follows:

do {
    s/\&lt;/\</ig;
    s/\<.*?>//ig;
} foreach($sndrNme, $rcvrNme, $subject, $ccrcNme);
[download]