Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...

tie my $ok,'Tie::Cycle',[0,0,1];
$ok && print $_ foreach @a;