use DBI;
my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_sep_char=\t") or die "Cannot connect: " . $DBI::errstr;
$dbh->{'csv_tables'}->{'employees'} = { file => 'employees.txt'};

# now you have your choice of DBI commands.  This one gets a ref to a Array of Hashrefs
my $aref = $dbh->selectall_arrayref("select * from employees", {Slice=>{}}, );  # AoH

$dbh->disconnect();