#!/usr/bin/perl
use warnings;
use strict;
my $object = MyObject->new( name => 'MyNewObject', debug => 1 );

print "MyObject Name: $object->{name}\n";
print "Debug setting: $object->{debug}\n";

package MyObject;
sub new {  
  print "method 'new' called with parameters: ", join ("\n", @_ ), "\n";  
  my $class = shift
  my $self = {@_};  
  $self -> {state} = "newly created";  
  bless $self, $class;  
  return $self;  
}