#!/usr/bin/perl -w

#######################################################
# lect09_read
#
# quick read command practice
#
# by Sharon Tuttle 
#
# last modified: 10-18-04
#######################################################

print "please type 9 characters: ";
read STDIN, $input1, 3;
read STDIN, $input2, 3;
read STDIN, $input3, 3;

print "\$input1 is: $input1\n";
print "\$input2 is: $input2\n";
print "\$input3 is: $input3\n";

# end of lect09_read