END {
	$DBH->disconnect;
	# whatever else you want to clean up neatly
}