package My::Employees;
use base qw/Class::DBI/;
__PACKAGE__->connection("DBI:CSV:f_dir=.;csv_sep_char=\t",);
__PACKAGE__->db_Main->{'csv_tables'}->{'employees'} = { file => 'employees.txt'};  # i'm guessing a little here .. it's a lot easier if the file doesn't have an extension
__PACKAGE__->table('employees');
__PACKAGE__->columns(Primary => qw/NAME/ );  # is it unique??
__PACKAGE__->columns(All => qw/NAME EMAIL OFFICE/);

package main;
my @all = My::Employees->retrieve_all;
my $first = $all[0];
warn $first->EMAIL;