#!/usr/bin/perl -w
while (<>)
{
    print ;
}

##</code><code>##

perl diamond.pl colors.txt seasons.txt

##</code><code>##

perl diamond.pl these are words and not the file names

##</code><code>##

# perl diamond.pl these are words and not the file names
Can't open these: No such file or directory at diamond.pl line 2.
Can't open are: No such file or directory at diamond.pl line 2.
Can't open words: No such file or directory at diamond.pl line 2.
Can't open and: No such file or directory at diamond.pl line 2.
Can't open not: No such file or directory at diamond.pl line 2.
Can't open the: No such file or directory at diamond.pl line 2.
Can't open file: No such file or directory at diamond.pl line 2.
Can't open names: No such file or directory at diamond.pl line 2.