sub send_info {
    # Adjust sender, recipient and your SMTP mailhost
    use MIME::Base64;

    my $charset = 'x-mac-cyrillic';

    my $from_address = $from;
    my $to_address = $infoemail;

    # Adjust subject and body message
    my $message_body = "<h2>The following visitor requested information.</h2><b>Name:</b> $string<br><b>E-mail:</b> $email<br>";
    my $subject = "$string is requesting information.";

    my $subject = "=?$charset?B?".encode_base64($subject)."?=";

    # Create the multipart container
    my $msg = MIME::Lite->new (
                               From    => $from_address,
                               To      => $to_address,
                               BCC     => $bcc,
                               Subject => $subject,
                               Type    =>'multipart/mixed'
                               ) or die "Error creating multipart container: $!\n";

    # Add the text message part
    $msg->attach (
                  Type => 'text/html',
                  Data => qq{ $message_body }
                  ) or die "Error adding the text message part: $!\n";

    # Now send
    $msg->send("sendmail") or die "Error e-mailing: $!\n";