print "Type the name of the CSV file:\n";
my $CSVfile =<STDIN>;
chomp $CSVfile; 

my    $dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\\t});
$dbh->{'csv_tables'}->{'tabdelimited'} = { 'file' => '$CSVfile'};