#!/bin/perl
use Mail::Sendmail;

for ($i = 0; $i <= $#ARGV; $i++) {
  if (@ARGV[$i] =~ /^-f$/) {
    $mail{'Sender'} = @ARGV[++$i];
  } elsif (@ARGV[$i] =~ /^-f/) {
    ($mail{'Sender'} = @ARGV[$i]) =~ s/^-f//;
  } elsif (@ARGV[$i] !~ /^-/) {
    $mail{'To'} .= "@ARGV[$i],";
  }
}
while($in = <STDIN>) {
  last if $in =~ /^$/;
  $in =~ s/^([-\w]+):\s+//;
  $header = $1 if $1;
  $mail{$header} .= $in;
}
while($in = <STDIN>) {
  $mail{'Body'} .= $in;
}
sendmail(%mail);