open (WRITE, "<counter.txt") or die $!;
while (<WRITE>)
{
 $counter = $_++;
}