while (<FILE>) {
    my $reciever = $_;
    $reciever = trim($reciever);
    print "sending to $reciever\n";

    $smtp->mail($sender);
    $smtp->recipient($reciever);

    $smtp->data();

    $smtp->datasend("To: <$reciever> \n");
    $smtp->datasend("From: $sender_name <$sender> \n");
    $smtp->datasend("Content-Type: text/html \n");
    $smtp->datasend("Subject: $subject");

    $smtp->datasend("\n");
    $smtp->datasend($body);
    $smtp->datasend("\n");
    $smtp->dataend();

}
$smtp->quit;