use strict;
use DBI;

my $dbh = DBI->connect('dbi:ODBC:Driver={SQL Server};Server=(local)', 'sa', 'P@ssW0rd');
my $sth = $dbh->prepare("SELECT 'Hello, DBI World' AS Message");
$sth->execute();

while (my $row = $sth->fetchrow_array) {
    print "Message", "n";
    print "-------------------n";
    print $row, "n";
}
$sth->finish();
$dbh->disconnect();