16 lines
298 B
Perl
Executable File
16 lines
298 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use Carp;
|
|
use Mail::IMAPClient;
|
|
|
|
$imap = Mail::IMAPClient->new(Debug => 1);
|
|
$imap->Debug(1);
|
|
$imap->Server('louloutte.dyndns.org');
|
|
$imap->connect() or croak "Error connecting @!";
|
|
$imap->User('MarkOv@est.belle');
|
|
$imap->Password('emhj91ly');
|
|
$imap->login();
|
|
$imap->logout();
|
|
|
|
|