use DBI;
my $DSN = 'driver=FreeTDS;Server=mssql_server; database=test;uid=user;pwd=password;';
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";

my $sth = $dbh->prepare('EXEC sp_who');
$sth->execute();