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