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