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