open(FOO,$foo) || die "Can't open $foo: $!"; #### die "Can't open $foo: $!" unless open(FOO,$foo); #### print "Starting analysis\n" if $verbose; #### $verbose && print "Starting analysis\n";