Select Code to Download

perl -wMstrict
-e "my @repo = qw(foo bar qux bar zot);  my %repo_index;
$repo_index{$repo[$_]} = $_ for reverse 0 .. $#repo;
print $repo_index{bar};"
1