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