#!/usr/bin/perl -w print "This will reverse all lines for each individual file.\n"; @ARGV = reverse(@ARGV); @input = <>; print reverse(@input);