#!/usr/bin/perl foreach (@ARGV) { print $_; };