Someone

   sub num_messages
        {
                my $num_messages = $imap->select('Inbox');
                return $num_messages;
        }

        sub read_message
        {
                 my $num = shift;
                 my $message = $imap->get( $num );
                 print for @{$message};
        }




### program
connect_to_email();
my $num_messages = num_messages();
read_message($num_messages);
$imap->quit;