use strict;
use Net::SMTP;

my @email_addrs = ('test1@company.dot', 'test2@company.dot', 'test3@company.dot');

my $from = 'from@company.dot';
my $subject = "das ist ein test!";
my $body = qq~Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat.~;

email_send(\@email_addrs, $from, $subject, $body);

sub email_send
{ 
  my ($tos, $from, $subject, $text) = @_;
  my $smtp;

  $smtp = Net::SMTP->new("127.0.0.1") or die $@;
  $smtp->mail($from);
  $smtp->bcc(@{$tos});
  $smtp->data();
  $smtp->datasend("Subject: $subject\n");
  $smtp->datasend("To: Nobody");
  $smtp->datasend("\n");
  $smtp->datasend($text);
  $smtp->dataend();
  $smtp->quit();
}