use strict;
sub blarg {
	my $i = $i+1;
	return $i;
}