#!/usr/bin/perl

for( $i=0; $i<=$#ARGV; ++$i )
  {
    print $ARGV[$i],
          ($i<$#ARGV ? " " : "\n");
  }