open (MAIL, "|$mailprogamm -t") || die $!;