imapsync/t/01_connect
Nick Bebout 6576e43299 1.233
2011-03-12 02:44:35 +00:00

15 lines
256 B
Perl

#!/usr/bin/perl -w
use Mail::IMAPClient;
$imap = Mail::IMAPClient->new();
$imap->Debug(1);
$imap->Server('Xlouloutte.dyndns.org');
$imap->connect() or die;
$imap->User('MarkOv@est.belle');
$imap->Password('emhj91ly');
$imap->login();
$imap->logout();