sub v_print {
	my $volume = shift;
	my $message = shift;
	if ( $volume >= $verbosity ) {
		print $message;
	}
}