Select Code to Download

$ perl -le 'my @array = qw( foo bar bar baz); my @dups = do {my %h; gr
+ep $h{$_}++, @array};
print join( ", ", @dup );'

$