perl -e"for(reverse@ARGV){open*_;print reverse<_>}" files