#!/usr/bin/perl


# Always be safe
use strict;
use warnings;

# Use the module
use Mail::IMAPClient;
use IO::Socket::SSL;

my $imap = Mail::IMAPClient->new(
                              Server  => 'server.name.de',
                              User    => 'xxxxxxxxxxxx',
                              Password  => 'xxxxxxxxxx',
                              Port => 993,
                              Ssl => 1,
                              Uid => 1,
         ) or die "IMAP Failure: $@";

my $folders = $imap->folders
    or die "List folders error: ", $imap->LastError, "\n";
  print "Folders: @$folders\n";

  $imap->logout
    or die "Logout error: ", $imap->LastError, "\n";