#!/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 ;