#!/usr/bin/perl
use strict;

while (<>) {
# do stuff with each argument given and spit out a sting.
# this example I'll just do
print;

}

##</code><code>##

$> ./myscript.pl foo bar baz
Can't open foo: No such file or directory at ./sp2comma.pl line 13.
Can't open bar: No such file or directory at ./sp2comma.pl line 13.
Can't open baz: No such file or directory at ./sp2comma.pl line 13.

##</code><code>##

$> ./myscript.pl foo bar baz
foobarbaz