my $dbh = DBI->connect( $connection,$user, $pass,{RaiseError => 1});

my $sql = 'SELECT TOP 1 * FROM someTable';
my $sth = $dbh->prepare( $sql );
$sth->execute;
my $fields = $sth->fetchrow_hashref;
$sth->finish;
my @fields = keys %$fields;