#!/bin/perl
# Command line arguments
# $#ARGV represents number of command line arguments less 1
# $ARGV[0] is the first argument
# $0 is the name of the command
for ($k=0; $k<$#ARGV+1 ; $k++) {
        print $ARGV[$k],"\n";
}