Select Code to Download

#!/usr/bin/env perl 
use strict;
...

my @names = qw/XX AA BC DD/;
print "@names\n";