Help for this page

Select Code to Download

Select or download this

  #use default directory if argument not set on command line
  find(\&fileop, $opts{'directory'}) unless @ARGV;
  find(\&fileop, @ARGV) if @ARGV;

Select or download this

  #use default directory if argument not set on command line
  find(\&fileop, @ARGV ? @ARGV
                       : $opts{'directory'});