open FOO, $foo or die "Can't open $foo: $!";

##</code><code>##

    die "Can't open $foo: $!" unless open FOO, $foo;

##</code><code>##

    print "Starting analysis\n" if $verbose;

##</code><code>##

    $verbose and print "Starting analysis\n";