# old
open(MAIL,"|$mailprog -t -f  || die"" couldn't open mailprog $!")

# new
open(MAIL,"| $mailprog -t -f") || die "couldn't open mailprog $!";