<code lang="Perl">
use Mail::Webmail::Gmail;

sub check_email {
   my ($username, $password) = @_;
   my $msg_found = 0;
   my $gmail = Mail::Webmail::Gmail->new( username => $username, 
                                          password => $password,
                                          encrypt_session => 1 
                                        );
   my $messages = $gmail->get_messages( label => $Mail::Webmail::Gmail::FOLDERS{ 'INBOX' } );
   
   # iterate through each message
   foreach my $message( @{ $messages } ) {
      if ($message->{ 'blurb' } =~ /your-regex/gi || $message->{ 'subject' } =~ /your-regex/gi) {  
	        
	     ++$msg_found;
            
	     print "<<Found email>>"  .
	           "\nSender Name: "  . $message->{'sender_name'}  .
	           "\nSender Email: " . $message->{'sender_email'} .
               "\nSubject: "      . $message->{'subject'     } .
               "\nBlurb: "        . $message->{'blurb'       } . "\n\n";
               
            
         $gmail->edit_archive( action => 'archive', 'msgid' => $message->{ 'id' } );
      }
   }  
   return $msg_found;
}
</code>