#!/usr/local/bin/perl -w
use strict;
use diagnostics;
$|++;

for my $line (@ARGV)
{
    print $line;
}

##</code><code>##

c:\>perl test_cmdline.pl one two three
onetwothree
c:\>