if (open(FH, $file))
{
    ...complicated logic extending many many lines....
    close(FH);
}
else
{
    warn "Couldn't open $file: $!"\n";
}