Help for this page
{ package STATE; ... } } 1;
#!/usr/bin/perl use STATE; print $STATE{counter}++, "\n";