#!/usr/local/bin/perl -w

use Net::IMAP::Simple;
use Date::Parse;
my $imap_server = '40.101.136.18';

printf $imap_server;
printf "\n";


if (!($imap_con = new Net::IMAP::Simple($imap_server, find_ssl_defaults=>[])))
    {
        print "The Server is not available. \n";
        exit;
    }
my $user = 'USER';
my $password = qq(PW);
if (!($imap_con->login($user, $password)))
    {
        print "invalid Login: ". $imap_con->errstr ."\n";
        exit;
    }
$imap_con->quit();
print "login possible. \n";
exit;