#!/usr/bin/perl 
    use 5.28.1;
    use strict; 
    use warnings;
    use DBI;

    my $dsn = 'dbi:ODBC:DRIVER={ODBC Driver 18 for SQL Server};TrustServerCertificate=yes;database=xxx;Server=xxx);
    my $dbh = DBI->connect($dsn, xxx, xxx) || die 'Verbindung zur Datenbank nicht möglich';

    my $erg = $dbh->selectrow_hashref('SELECT TOP 1 * FROM [Purchase Line]');
    for my $key (sort keys %$erg){
        say $key.' - '.$erg->{$key};
    }

<?php
    $user = "xxx"; 
    $password = "xxx";
    $dsn = 'DRIVER={ODBC Driver 18 for SQL Server};TrustServerCertificate=yes;database=xxx;Server=xxx';
    $connection = odbc_connect($dsn, $user, $password);

    $RecordSet = odbc_exec($connection, 'SELECT TOP 1 * FROM [Purchase Line]');
    for($i=1; $i <= odbc_num_fields($RecordSet); $i++ )
        echo odbc_field_name($RecordSet, $i)."\n";

    odbc_close($connection);
?>