sub PowerDown {
	$Port->handshake('none');
	$Port->rts_active(0);
	$Port->write_settings;
	Win32::Sleep(1000);
	$Port->read;
	$Port->close || warn "Close failed.\n";
	undef $Port;
	exit
}