echo This is the standard input | perl diamond.pl