sending email from perl program

open (MAIL, "| /usr/bin/mail -s \" ups response histogram by property \" -c \"ravic\@yahoo-inc.com\" $requester ");
print MAIL <$output

Thanks,
Hemanth.
EOM
close(MAIL);