#!/usr/bin/perl -w

#######################################################
# class5_03_diamond1
#
# demo diamond operator, <>
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 4-21-03
#######################################################

# echo back what was read in within a message

while (<>)
{
    chomp;
    print "$_ is what was input\n";
}

# end of class5_03_diamond1