#!/usr/bin/perl -w

use strict;
use DBI;
my $dbh=DBI->connect('dbi:DBM:f_dir=D:\Perl\site\lib\DBD\usr.sql')
    or die "Can't connect to $DBI::errstr";
                                                             
my $sql = "SELECT USERNAME FROM USERS";
                                                             
my $sth = $dbh->prepare($sql)
    or die "Can't prepare statement: $DBI::errstr";
                                                             
$sth->execute();

print $sth;

$dbh->disconnect;