Select Code to Download

my @birds = @{ $self->{farmBirds} };

package Farm;

...
    return @{ $self->{farmBirds} };
}
1;

#!/usr/bin/perl
use strict;
...
my @birds = $farm->getFarmBirds();

print "@birds\n";