#!/usr/bin/perl -w for( @ARGV ) { print( "$_\n" ) } ;