in reply to problem related to project key counter

Try starting with this: 
use strict;
use warnings;

[download]
And then add your code from there.

Revolution. Today, 3 O'Clock. Meet behind the monkey bars.

I would love to change the world, but they won't give me the source code

In Section Seekers of Perl Wisdom