$imap = Mail::IMAPTalk->new(
            Server => 'foo.com',
            Port => 143,
            Username => 'joebloggs',
            Password => 'mypassword',
            Separator => '.',
            RootFolder => 'inbox',
            CaseInsensitive => 1)
          || die "Connection to foo.com failed. Reason: $@";

  $imap->select('user.john'); # Selects 'user.john'

  my $Res = $imap->fetch('1:*', 'all');