perl -e 'use File::Find; no warnings 'File::Find'; @fred = ( $ENV{ AC_SYSTEM } ); find wanted => undef(), @fred;'