{
	local *INPUT;
	open (INPUT, "file.ext") or warn "Cannot open file: $!" && return;
	print while (<INPUT>);
	close INPUT;
}

##</code><code>##

{
	local *INPUT;
	if (open(INPUT, "file.ext")) {
		print while (<INPUT>);
		close INPUT;
	} 
# for diagnostic purposes, uncomment these lines
#	 else {
#		print "Couldn't open file: $!";
#	}
}