my($dir, $year, $start, $delay);

GetOptions (
	'dir=s'   => \$dir,
	'year=i'  => \$year,
	'start:i' => \$start,
	'delay:i' => \$delay
	);