Select Code to Download

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

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

print "Is there a header in this file?\n";
my $header = <>;
...
}
else {$header = "undef";
}

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

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