#!/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();