#!/usr/bin/perl

# print "Whole argv array is @ARGV\n";
# $arg1 = shift ;
# $arg2 = shift @ARGV;
# print "$arg1 is arg1, $arg2 is arg2 \n";

# If there's anything in ARGV, it reads from that
# Otherwise it reading from STDIN
while(<>){
	print;
}