Select Code to Download

sub sort_files {
...
        print "   ",lc $$a{'path'} cmp lc $$b{'path'},"\n";
        return lc $$a{'path'} cmp lc $$b{'path'};
}