+ while ($_=shift @got || <>) {
+ while (my($file,$old)=each %files) {
+ my $new=(stat $file)[9];
+ $files{$file}=$new;
+ next if !defined $old || $old==$new;
+ push @got,$_;
+ redo RELOAD;
+ }
+ s@$patt@http://localhost/cgi-bin/redirector-ad.cgi?$^R\n@;
+ print;
+ }
+ } # RELOAD