sub f1{
	
	my ($a) =@_;
	$cp=1;
        $LOCAL_CODEPAGE =10;
	if ($a==1){
		$LOCAL_CODEPAGE = $cp;
		break;
	}
	return $LOCAL_CODEPAGE = $a;
	print "\n";
}

print "\$LOCAL_CODEPAGE=$LOCAL_CODEPAGE: f1(@3,9,3,4,5): ".f1(@3,9,3,4,5)."\n";