#!/usr/bin/perl -w

#######################################################
# lect03_diamond1
#
# demo diamond operator, <>
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-7-04
#######################################################

# echo back what was read in within a message

while (<>)
{
    chomp;   # demo of how chomp chomps $_ if NO arg given

    print "$_ is what was input\n";
}

# end of lect03_diamond1