Select Code to Download

use strict;
use Scalar::Util 'blessed';
...
if ( defined blessed($some_scalar) ) {
     #  ...do something...
}