### Do something like this in your 'main':
if ($I_DONT_HAVE_SENDMAIL) {
    MIME::Lite->send('smtp', $host, Timeout=>60
        AuthUser=>$user, AuthPass=>$pass);
}