Help for this page

Select Code to Download


  1. or download this
    my %files = ('foo.txt' => [0,time()], 'bar.csv' => [0,time()]);
    while(%files) {
    ...
         sleep 1;
      }
    }
    
  2. or download this
    if(time() - (stat $file)[9] > 60)