Select Code to Download

@files = reverse (sort { $files{$a} <=> $files{$b} } keys %files);

@files = sort { $files{$b} <=> $files{$a} } keys %files;

my $redirect = ( $TRACE < 2 ) ?  '>' : '| tee';

system( "sed s/{author}.*//g <$file $redirect ${file}1.txt";