#!/usr/bin/perl -w
use strict;

sub whatever {
    bless {name => 'pg', forum => 'perlmonks'}, 'NonObject';
}

my $obj = whatever();
print $obj->{name},"\n";
print $obj->{forum},"\n";