#!/usr/bin/perl

use v5.10 ;
use strict;
use warnings ;
use Text::CSV ;

print "DB FILE: " ;
my $dbfile = <STDIN> ;
chomp($dbfile) ;

my $if;
open ($if, "<", $dbfile) or die "Can't open $dbfile: $!\n" ;
my $csv = Text::CSV->new() ;
$csv->sep("\t") ;

my $header = $csv->getline($if) ;
say $header ;
exit ;

##</code><code>##

D:\Desktop>testcsv
DB FILE: alladdrs.csv
Use of uninitialized value $header in say at D:\perl\testcsv.pl line 22, <$if> line 1.

##</code><code>##

Importance,"First Name","Middle Name","Last Name","Full Name",Company,Department,"Job Title","Street (b.)","City (b.)","State (b.)","ZIP Code (b.)","Country/Region (b.)","Home Phone","Business Phone","Mobile Phone","Business Phone 2","Business Phone 3","Business Phone 4","Business Fax","Business Web Page","Street (h.)","City (h.)","State (h.)","ZIP Code (h.)","Country/Region (h.)","Home Phone 2","Home Phone 3","Home Phone 4","Home Fax","Personal Web Page","Mobile Phone 2","Mobile Phone 3","Mobile Phone 4",E-mail,"E-mail 2","E-mail 3","E-mail 4",x,y,z,w,Office,Supervisor,Assistant,Salutation,Nickname,Gender,Spouse,Birthday,Anniversary,Family,Hobbies,Specialty,Strengths,Personality,Notes,"Custom 2","Custom 3","Custom 4","Custom 5","Custom 6","Custom 7","Custom 8",Comment,Group,"Birthday Reminder On/Off","Anniversary Reminder On/Off"