sub message {
	if ($options{verbose} && $options{verbose} >= ($_[1] || 0)) {
		if ($inprogress) { print "\n"; $inprogress = 0; }
		print "<";
		my @time = localtime;
		print ">";
		printf "%04d-%02d-%02d %02d:%02d:%02d %s\n", $time[5] + 1900,
			$time[4] + 1, $time[3], $time[2], $time[1], $time[0],
			$_[0];
	}
}