sub configuration { my %options = @_; print "Maximum verbosity.\n" if $options{VERBOSE} == 9; }