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

use strict;

use Fcntl;
use SDBM_File;

my %hash;
tie(%hash, 'SDBM_File', 'example', O_RDWR|O_CREAT, 0640);

$hash{'animal'} = 'dog';
@hash{'vegetable', 'mineral'} = ('carrot', 'quartz');

print "$hash{'animal'} is an animal.\n";
while (my($key, $val) = each %hash) {
  print "My $key is a $val.\n";
}

__END__


##</code><code>##

#!/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__