use strict;
use warnings;
-use Benchmark qw/cmpthese/;
+use Benchmark qw<cmpthese>;
use lib 'blib/lib';
my $counter;
-my @poultry = (qw/cock chick/);
+my @poultry = (qw<cock chick>);
sub Duck::quack { $counter += $_[0]->{id} * $_[0] }
sub fly { $counter += $_[0]; }