my ($theFile); until (-f $theFile) { print "Please enter the file name:"; chomp($theFile = ); }