open( MAIL, "|-", $mailprog, "-oi", $to );  # ... or die?