use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';

$strProvider = 'Provider=sqloledb;Data Source=MyServerName;Initial Catalog=MyCatalog;';
$strProvider .= 'User Id=MyName;Password=MyPassword';
	
$strQuery = "SELECT 1 AS SystemName";
	
$objConn = CreateObject Win32::OLE "ADODB.Connection";
$objConn->Open($strProvider);

$objRS = $objConn->Execute($strQuery);
if ($objRS) {
	while ( !$objRS->EOF ) {
		my($SystemName) = ( $objRS->Fields('SystemName')->value );
		print "SystemName: ", $SystemName, "\n";
		$objRS->MoveNext;
	}
} else {
		print "This doesn't work!!!\n";
}