#!/usr/bin/perl
# A text based counter
$counterFile = $ARGV[0]; 

   open(COUNT,"$counterFile") || die("Can't open $counterFile: $!\n");
   $totalReads = <COUNT>;
   chop $totalReads;
   close(COUNT);

   $totalReads++;
   open(COUNT,">$counterFile") || die "$0: can\'t open $counterFile: $!\n";
   print (COUNT "$totalReads\n");
   close(COUNT);

   print $totalReads;

exit;