The Email::Send::SMTP::Gmail POD says you can use -verbose. When the documentation is inadequate, you should look at the source code, which shows that "send" can return a list. Try:

my @returns = $mail->send(-to=>"$email", -subject=>"$subject",
            -body=>"$emailtext",-contenttype=>'text/html'
            -verbose=>1);
print "@returns\n";
[download]