Help for this page

Select Code to Download

Select or download this

 

#!/usr/bin/perl
...
use Scalar::Util 'blessed';
#print blessed($hash);      # undef
print blessed($hostname);  # File