#!/usr/bin/perl -w

#######################################################
# class8_06_filehandle_input2
#
# demonstrating using an input filehandle for input - ex 1
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 5-5-03
#######################################################

# let's say that this reads from a previously-created counter file

open COUNTER, "< /d3/home/faculty/st10/counters/class8_06_counter"
   or die "Cannot open class8_06_counters: $!";

$ct = <COUNTER>;

print "current counter value is: $ct\n";

close COUNTER; 

# end of class8_06_filehandle_input2