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'};

##</code><code>##

Execution ERROR:  Cannot open .\$CSVfile: No such file or directory at C:/Perl/site/lib/DBD/File.pm line 496, <STDIN> line 1.