use File::Spec;
use FindBin;
my $file = File::Spec->catfile($FindBin::Bin, "InFile.csv");