...
open(SENDMAIL, "|/usr/sbin/sendmail -oi ") 
or 
warn "cannot open pipe $!" and return ("...")
...