+ my $cachefile = "source/$source.html";
+ if (-e $cachefile and (stat $cachefile)->[9] >= (stat $source)->[9]) {
+ say '<pre>';
+ print ReadFile($cachefile);
+ say '</pre>';
+ exit;
+ }
+ -e or mkdir for $cachefile =~ s{[^/]+\z}{}r; # dirname
+ open my $cache, '>', $cachefile
+ or Alert("Could not save cache", "Opening $cachefile failed: $!");;
+