diff -Nru MIME-tools-5.420.orig/examples/mimesend MIME-tools-5.420/examples/mimesend
--- MIME-tools-5.420.orig/examples/mimesend	2004-09-07 17:09:55.000000000 +0200
+++ MIME-tools-5.420/examples/mimesend	2007-03-01 17:47:04.000000000 +0100
@@ -50,8 +50,9 @@
 # Usage:
 @ARGV or die <<EOF;
 Usage:
-    mimesend [-t to] [-s subj] (-f file [-m type])+
+    mimesend [F from] [-t to] [-s subj] (-f file [-m type])+
         -n        Don't actually send it; just print it to stdout.
+	-F from   The "from" address.
         -t to     The "to" address.
         -s subj   The subject of the message.
         -f file   Path to attached file.
@@ -77,6 +78,10 @@
 	$nosend = 1;
         next ARG;
     };
+    /^-F(.*)/ and do {
+	$from = $1 || shift @ARGV;
+        next ARG;
+    };
     /^-t(.*)/ and do {
 	$to = $1 || shift @ARGV;
         next ARG;
@@ -115,6 +120,7 @@
        Type     => ($type || type_for($path)),
        Path     => $path,
        Encoding => '-SUGGEST';
+   $from and $top->head->add('From', $from);
    $top->head->add('To', $to);
    $top->head->add('Subject', $subj);
 }
@@ -122,6 +128,7 @@
 
     # Start with top:
     $top =  build MIME::Entity Type=>"multipart/mixed";
+    $from and $top->head->add('From', $from);
     $top->head->add('To', $to);
     $top->head->add('Subject', $subj);