#!/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, port => 993, use_ssl => 'true')))
    {
        print "The Server is not available. $Net::IMAP::Simple::errstr\n";
        exit;
    }
my $user = '';
my $password = '';
if (!($imap_con->login($user, $password)))
    {
        print "invalid Login: ". $imap_con->errstr ."\n";
        exit;
    }
$imap_con->quit();
print "login possible. \n";
exit;