#!/usr/local/bin/perl -w

use strict;


package MyObject;

sub new {
  return bless {}, shift;
}

sub get {
  my $self = shift;
  return $self->{$_[0]};
}

sub set {
  my $self = shift;
  $self->{$_[0]} = $_[1];
}

sub greet {
  print "Hello, world!\n";
}


package main;

my $obj = new MyObject;

$obj->greet();
$obj->set('fruit', 'banana');
print $obj->get('fruit'), " is a fruit.\n";

__END__