#!/usr/bin/perl -w
use strict;
use DBI;

my $dbh = DBI->connect('dbi:DBM:server=RS-ERDSG06:f_ext=.sql')
    or die "Can't connect to $DBI::errstr";

my $sql = "SELECT COUNT(*) FROM users";

my $sth = $dbh->prepare($sql)
    or die "Can't prepare statement: $DBI::errstr";

$sth->execute();

print $sth, "\n";

$dbh->disconnect;