#!/usr/bin/perl



# Get the Date For Logging Purposes
$uselog = 1;
if ($uselog == 1) {
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   if ($sec < 10)  { $sec = "0$sec";   }
   if ($min < 10)  { $min = "0$min";   }
   if ($hour < 10) { $hour = "0$hour"; }
   if ($mday < 10) { $mday = "0$mday"; }
   if ($mon < 10)  { $monc = "0$mon";  }
   $mon++;
   $date = "$hour\:$min\:$sec $mon/$mday/$year";
}


open(COUNT,'</var/www/htdocs/igcp/main.count') || die "Can't open";
$count = <COUNT>;
close(COUNT);
$count++;


print "<b>$count</b>";


open(COUNT,'>/var/www/htdocs/igcp/main.count');
print COUNT "$count";
close(COUNT);