entry.pl, first draft

entry.pl

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use Object;
use Player;

my $lamp    = Object->new(name => "lamp");
my $player  = Player->new;

say $player->list_inventory;
$player->obtain($lamp);
say $player->list_inventory;

# but:
$player->obtain($player);