http://www.perlmonks.org?node_id=358259

#!/usr/bin/perl -w use strict; @ARGV = reverse @ARGV; while (<>) { chomp; print "$_ \n"; }