Select Code to Download

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

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

    print "Starting analysis\n" if $verbose;

    $verbose and print "Starting analysis\n";