my ($mail,$error)=Email::Send::SMTP::Gmail->new( ... )