open(FH, $file) or &error("NO_OPEN", $file, $!); my $text = join('', ) or &error("NO_READ", $file, $!); close(FH) or &error("NO_CLOSE", $file, $!);