if (open(FH, "C:/web/test/test.dat")) { while () { print } close FH or die "Cannot close: $!"; } else { print "No go!!!!"; }