Sende mail CC med dette script

Hej Eksperter.

Flg. er en del af et script som jeg bruger, kan man få dette til også at sende en kopi (cc) til mig ??.
som det er nu bliver mailen sendt til den email adr. som er blevet skrevet i et felt på HP'en
$smtp->mail("$FORM{'bemail'}"); på disse to linier
$smtp->to("$FORM{'bemail'}"); på disse to linier

Men hvordan får man den til også at sende en kopi til min email.

-----script start-----

#!/usr/bin/perl
print "Content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
$counter=0;
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$counter=$counter+1;
$Titel{$counter}=$name;
$FORM{$name} = $value;
}

use Net::SMTP;
$smtp = Net::SMTP->new('smtp.mail.dk', Hello => 'mig.dk');
$smtp->mail("$FORM{'bemail'}");
$smtp->to("$FORM{'bemail'}");
$smtp->data();
$smtp->datasend("To: $FORM{'bemail'}\n");
$smtp->datasend("From: Salg\@mig.dk\n");
$smtp->datasend("Subject: Bestilling fra mig.dk\n");
$smtp->datasend("Content-type: text/html\n\n");
$smtp->datasend("\n");
-----script cutted here-----

mvh.

Christian_h