#!/usr/bin/perl -w## This script prints out all# files listed on the command line.#while () { print $_;}