This perl subroutine uses the CPAN module Mail::Webmail::Gmail to iterate through a Gmail account searching for a particular string. If a match is found, the sender's name along with his/her email address, the subject, and the "blurb" is printed to standard out. Also, all messages found will be archived automatically within Gmail to clear the message from the inbox folder. The subroutine returns the number of messages found back to the calling environment.

Sample invocation: check_email(username, password);

By default, the subroutine will use encryption to connect to Gmail however, by setting encrypt_session to '0' will disable encryption.

This perl function will output to a file of your choosing the current localtime as defined by perl's localtime function. It will output the date in ISO 8601 date format plus the current localtime such as:
2006-08-21 09:26:35 am
The function also returns the localtime without the date to the calling environment.