/usr/share/doc/libnet-imap-simple-perl/examples/hand_test01.pl is in libnet-imap-simple-perl 1.2207-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #!/usr/bin/perl
use strict;
use warnings;
use lib 'inc', "blib/lib", "blib/arch";
use rebuild_iff_necessary;
use slurp_fetchmail;
use Data::Dump qw(dump);
my $imap = slurp_fetchmail->login(use_ssl=>1);
my @c;
for my $box (map {split m/\s+/} (@ARGV ? @ARGV : ("INBOX"))) {
push @c, {
selectres => dump($imap->select($box)),
box => $imap->current_box, first_unseen=>$imap->unseen, recent=>$imap->recent,
};
}
warn dump(@c) . "\n";
|