my $zaehler = 0;
bla();

sub bla{
	my $var = $zaehler++;
	print "$var". "\n";
	inbla();
	
	sub inbla{
		if($var<2){
			bla();
		}
	}
}