foreach my $msg( 1 .. $number_of_messages ) 
{
       
        my $email = Email::Simple->new( join '', @{$server->get( $msg )} );

        print $email->header('Subject'), "\n";
           
}