my $file; for (;;) { print "Which file do you want to open? "; $file = ; chomp($file); last if length $file; print "Please supply a file name.\n"; }