#!/usr/bin/perl

my $lines;
my @lines;

print ("\@ARGV: @ARGV, \$\#ARGV: $#ARGV\n");

if (!@ARGV){
   print("No command line parameters present");
}

chomp(@lines = <>);

foreach $lines (@lines){
   print("$lines\n");
}