#!/usr/bin/perl
use strict;
use warnings;
use Farm;

my $farm = Farm->new();
$farm->addFarmBirds( qw(X Y Z) );

my @birds = $farm->getFarmBirds();

print "@birds\n";