#!/usr/bin/perl
use STATE;
print $STATE{counter}++, "\n";