if ( $smtp->status() =~ /^[45]$/ ) {

##</code><code>##

if ( ! $smtp->ok ) {