Select Code to Download

if ($colref->[0] =~ /^#/) { next; }

 
my $anynonblank=0; 
for my $item (@$colref){ 
  unless  ($item =~ /^\s+$/) { $anynonblank=1; last; } 
} 
unless ($anynonblank) { next; }