use DBC; # my own connector, uses DBI

my $dbh= DBC->connect( { database => master } );

my $sql = qq{

    select spid, program_name 
    from sysprocesses -- not portable

};

print "spid\tprogram_name\n";
print "----\t------------\n";

print "$$_[0]\t$$_[1]\n" for @{$dbh->selectall_arrayref($sql)};

__END__

spid    program_name
----    ------------
1
2
3
4
5
6
7
8
9
10
11
12
51      SQLAgent - Generic Refresher
52      SQLAgent - Alert Engine
53      SQL Profiler
54      MS SQLEM
55      SQL Query Analyzer
56      ActivePerl