Select Code to Download

    $vars = {
        image_path => $image_path,
...

    $template->process($template_file, $vars)
    || die "Template process failed: ", $template->error(), "\n";

    $to_address = $_[0];
    $from = $_[1];
...
    print MAIL "To:    print MAIL "From: $from\n";
    print MAIL "Subject: $subject\n";
    print MAIL "$content\n";