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.~;

foreach my $to (@email_addrs)
{
   email_send($to, $from, $subject, $body);
}

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

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