my $smtp = Net::SMTP->new($srv);
$smtp->mail('root@localhost');
$smtp->to(@emails);
$smtp->data();
$smtp->datasend("Your data goes here.\n");
....