print  MAIL <<EOF;
Mime-Version: 1.0
Content-type: text/html; charset="iso-8859-1"
To: info\.someone\@somecompany.com
bcc: $recipient
From: info\@somecompany.com
Subject: BLABLABLA - $SomeVar - $Date


#some text bla bla

EOF
close(MAIL);

##</code><code>##

 
print  SECONDMAIL <<EOF;
Mime-Version: 1.0
Content-type: text/html; charset="iso-8859-1"
To: info\.someone\@somecompany.com
bcc: $recipient
From: info\@somecompany.com
Subject: BLABLABLA - $SomeVar - $Date


#some text bla bla

EOF
close(SECONDMAIL);