sub mailout{
    $sender = new Mail::Sender;

    $sender->Open({
        smtp => 'mail', #insert your smtp server here
        from => "$from",
        fake_from => "$ffrom",
        to => "$to",
        encoding => "quoted-printable",
        subject => "$subject",
        ctype => "$htype", # could be plain or html
        }) || die "Sender error: $sender, $Mail::Sender::Error!\n";

    # body of email
    $sender->SendEnc(@body) || die "Sender error: $sender, $Mail::Sender::Error!\n";

    # send email
    $sender->Close || die "Sender error: $sender, $Mail::Sender::Error!\n";
}