#!/usr/bin/env perl 
use strict;
use warnings;

my $hr = {
	logfh => \*STDOUT
};

print { $hr->{'logfh'} } "Hello Hashref\n";
my $obj = bless ($hr, 'UNIVERSAL');
print { $obj->{'logfh'} } "Hello Object\n";