Help for this page

Select Code to Download


  1. or download this
    perl -p -e "s/^(File::Find::find)/my \$cwd = Cwd::cwd();$1/"
  2. or download this
    foo . -mtime -7 -ls
  3. or download this
    open(STDOUT,'|perl') or die "...";