You can give the methods from Net::Cmd a try.
It is inherited by Net::SMTP.

Specifically, message(), code(), and status() should be the most useful.