print "What is the name of the access rights .csv? (Full file name)\n";
my $file = <>;

##</code><code>##

print "What is the name of the access rights .csv? (Full file name)\n";
chomp( my $file = <STDIN> );

##</code><code>##

print "Is there a header in this file?\n";
my $header = <>;
if ($header =~ m/^yes|^y]/i){
	$header = "1";
}
else {$header = "undef";
}

##</code><code>##

open (CSV, "<", $file);

##</code><code>##

open CSV, '<', $file or die "Cannot open '$file' because: $!";