#!/usr/bin/perl

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

my $msg;
my $hostname = "localhost";
my $login = "matej";
my $passwd = "lubdkc";

my $imap = Mail::IMAPClient->new();
$imap = Mail::IMAPClient->new(
	Server => $hostname,
	User => $login,
	Password => $passwd,
	UID => 1
) or die "Cannot connect to localhost as matej: $@";

print "\n===============================\n";
my @folders = $imap->folders;
print join("\n",@folders),"\n";