1 files changed, 23 insertions, 0 deletions
diff --git a/previousAttempts/perl/listFolders.pl b/previousAttempts/perl/listFolders.pl
new file mode 100644
index 0000000..5be4bc6
--- /dev/null
+++ b/previousAttempts/perl/listFolders.pl
@@ -0,0 +1,23 @@
+#!/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";
+\ No newline at end of file