hi minixman
First, use strict with warnings if you are not doing so.
Second, when you're having problems, turn on debugging.
Third, You can specify multiple recipients as follows.

#!perlenv -w

use strict;
use Net::SMTP;

my $ServerName = 'MAILSERVER'; 
my $smtp = Net::SMTP->new($ServerName,
               Debug => 1,); 
my $MailFrom = 'test@test.net'; 
my $MailTo1 = 'test@test.net'; 
my $MailTo2 = 'test@test.net'; 
$smtp->mail( $MailFrom );
$smtp->to ( $MailTo1 );
$smtp->data();
$smtp->datasend("To: $MailTo1\n");
$smtp->datasend("cc: $MailTo2\n");
$smtp->datasend("test");
$smtp->quit;
[download]

hope this helps,
cheers, semio