-d asks if a file is a directory. Don't you mean
-e instead?
[jeffa@localhost]$ perl -le'print "yes" if -d "/usr/sbin/sendmail"'
[jeffa@localhost]$ perl -le'print "yes" if -e "/usr/sbin/sendmail"'
yes
Also, consider using
MIME::Lite, it's really nice. :) From the docs:
Change how messages are sent
### Do something like this in your 'main':
if ($I_DONT_HAVE_SENDMAIL) {
MIME::Lite->send('smtp', "smtp.myisp.net", Timeout=>60);
}
### Now this will do the right thing:
$msg->send; ### will now use Net::SMTP as shown above
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)