find( \&fileop, @ARGV ? @ARGV : $opt_directory );