spek@scelia ~/scratch $ perl obj.pl 
2
4
6