use FindBin;

my $file = $FindBin::Bin . '/InFile.csv';
open my $INFILE, '<', $file or die $!;