The Code

	use DBI;
	use strict;

	my $SERVER = "bes.server.com";

	my $DSN = "DBI:ODBC:Driver={SQL Server};Server=$SERVER;Database=BESMgmt";

	my $dbh = DBI->connect($DSN);

	if (not $dbh) {
		print $DBI::errstr,"\n";
		die;
	}

	my $sql =<<"END";
	SELECT u.displayName,u.PIN,s.modelname,s.PlatformVer,s.AppsVer,
	s.PhoneNumber,s.IMEI,s.HomeNetwork,s.PasswordEnabled,s.FlashSize
	,s.ITPolicyName
	FROM SyncDeviceMgmtSummary AS s INNER JOIN userconfig AS u
	ON u.id = s.UserConfigId
	ORDER BY u.displayName

	END

	my $st = $dbh->prepare($sql) || die $DBI::errstr;
	$st->execute;

	my @headings = qw(
		DisplayName
		PIN
		ModelName
		PlatformVer
		AppsVer
		PhoneNumber
		IMEI
		HomeNetwork
		PasswordEnabled
		FlashSize
		ITPolicyName
	);

	print join("\t", @headings),"\n";
	while (my @fields = $st->fetchrow) {
		print join("\t", @fields),"\n";
	}