#!/usr/bin/perl -w use MailClient; eval { ### Посылаем парочку сообщений send_mail('toYandexFriend@yandex.ru', 'MySubject', 'MyBody','myTestGmail@gmail.com','mypassword'); send_mail('toGmailFriend@gmail.com', 'MySubject', 'MyBody','myTestGmail@gmail.com','mypassword'); }; if($@){ ###Если рассылка не удалась print "Bad send!\n"; print $@; } else{ ### Если рассылка прошла успешно print "Good send!\n"; } eval { ### Получаем письма с нашего ящика imap_email('myTestGmail@gmail.com','mypassword'); }; if($@){ ### Если получить письма не удалось print "imap_email Bad!\n"; print $@; } else { ### Получение входящих писем удалась - они сохранились в файл с именем нашего ящика print "imap_email Good!\n"; }