#!/usr/bin/perl -w
######################################################################
# stdin.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

print "Input> ";            # display input prompt

$word = <STDIN>;            # receive input

chop($word);                # cut off terminating newline

print "Input was: $word\n"; # display input for checking

