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