#!/usr/bin/perl
#
# example of user input
#
# The end of line character on this operating system 
# is stored in the global $/ 
#
# One way to run this :
#    perl user_input.pl
#
# Another way :
#    perl user_input.pl < input.txt > output.txt
#


$number = 1;
while ( $number ){
  print " What is the number ? ";      # Prompt user for input.
  $number = <STDIN>;                   # Get input, including CR or newline
  chomp($number);                      # Remove CR or newline, if any.
  print " You typed '$number'\n";      # Tell the user what we got.
}

