Select Code to Download

sub say { local $\ = "\n"; print(@_ or $_) }
sub IO::Handle::say { my $h = shift; local $\ = "\n"; $h->print(@_ or 
+$_) }

use constant {
    IX_FILENAME => 0,
...
        [ $_, split /_/ ]
    }
    @files;