open(MAILPIPE,'|/bin/mailx -s "Happy Birthday" ' . $email) or die "Can't open pipe $!";