use strict;
use Scalar::Util 'blessed';

if ( defined blessed($some_scalar) ) {
     #  ...do something...
}