sub parseInput
	my($encoding) = 
return %in;

sub lock
	my($lfh, $lockfile) = 
return 1;
return undef if (--$retry <= 0);
return open($lfh, ">$lockfile");

sub unlock
	my($lfh, $lockfile) = 

sub openLock
	my($fh, $modefile) = 
return undef unless $filename;
return undef;
return undef;
return 1;

sub closeUnlock
	my($fh, $file) = 

sub exitError
	my($msg) = 

sub END

sub getCookie
return *cookies;

sub setCookie
	local(*data) = 
return $cookie;

sub getDayOfWeek
	my($year, $month, $day) = 

sub leap
	my($year) = 
return 0;
return 1;
return 0;
return 1;
return 0;

sub getDaysOfMonth
	my($year, $month) = 
return leap($year) ? $LeapYear[$month] : $NormYear[$month];