#!/usr/bin/env perl

use feature 'state';

sub csinal {
	state $szam = 0;	
	print $szam;
	$szam++;
}

for (1..5) {
	csinal();
}