sub print_host_config {
		print Dumper($host_configref);
		foreach my $key ( sort keys %$host_configref ) {
			print "$key.\n";
			print "Host = $host_configref->{$key}{cmd}\n";
		}
}