How about this:

open(SENDMAIL"|$sendmail") or die "Cannot open $sendmail: $!";

        print SENDMAIL "To: " . join ",",@mail_to . "\n";
        print SENDMAIL "From: csorensen\@uptimeresources.net \n";
        print SENDMAIL "Subject: South African tourism survey \n";
        print SENDMAIL "Content-type: text/plain \n\n";
        print SENDMAIL $content;

close(SENDMAIL);
[download]