#!/usr/bin/perl

use strict;

my $main_object = bless( {} );
print "\$main_object is of type (", ref $main_object, ")\n";
$main_object->{blah} = 'blah';
$main_object->get_session();

##</code><code>##

Can't locate object method "get_session" via package "main" (perhaps
you forgot to load "main"?) at bless_main.pl line 8.
$main_object is of type (main)

##</code><code>##

my $object = bless( {}, 'My::Object' );

##</code><code>##

sub new {
   my ( $item ) = @_;
   my $class = ref $item || $item;
   return bless( {}, $class );
}