Select Code to Download

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

unless (open(FH, $file))
{
    ...send email, sound the klaxons, raise a ruckus, etc.
...
{
    ....do fun stuff with FH
}