playWithImap.pl


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl -Wall

use strict;
use Mail::IMAPClient;
use Data::Dumper;

my $imap = Mail::IMAPClient->new();
$imap = Mail::IMAPClient->new(
	Server => "localhost",
	User => "matej",
	Password => "lubdkc"
) or die "Cannot connect to localhost as matej: $@";
print Dumper($imap);