#!/usr/bin/env perl

sub ki {
	local $fizetes = 885000.0;
}

ki();
print $fizetes;