#!/usr/bin/env perl -w

use strict;
use warnings;
use Diagnostics;

my $file = "InFile.csv";

{
open( INFILE, "$file" ) 
	or die("Can not open input file: $!");
close(INFILE);
}