#!/usr/bin/perl -w

#######################################################
# lect06_filehandle_input2
#
# demonstrating using an input filehandle for input - ex 1
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-28-04
#######################################################

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

open COUNTER, "< /home/st10/counters/lect06_06_counter"
   or die "Cannot open lect06_06_counters: $!";

$ct = <COUNTER>;

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

close COUNTER; 

# end of lect06_filehandle_input2