.htpasswd and DBD::CSV

[Perl DBI]

how can i connect to .htpasswd using DBD::CSV?  particularly those file
with period (.) at the beginning.

this is the error im getting. 

DBD::CSV::db prepare failed: Parse error near .prog where
progname='Prepaid Domains' at /usr/lib/perl5/site_pe
rl/5.005/DBD/File.pm line 164.
Can't call method "execute" on an undefined value at choose.pl line 17.

and this is my code

my ($table) = ".prog";
my ($dbh) = DBI->connect("DBI:CSV:");
$dbh->{'csv_tables'}->{$table} =
  {
   'col_names' => ["progname", "progfile", "groups"],
   'eol'       => "\n"
  };

my($query) = "SELECT * FROM $table where progname='Prepaid Domains'";
my($sth) = $dbh->prepare($query);
$sth->execute;
while ($row = $sth->fetchrow_hashref) {
  print "$row->{'progname'}, $row->{'progfile'}, $row->{'groups'}\n";
}
$sth->finish;
$dbh->disconnect;