sub Data {
my ($filename) = @_;
my @data = eval {
- open my $cache, '<:raw', "data/$filename.json"
+ !exists $get{f} and open my $cache, '<:raw', "data/$filename.json"
or return do "./$filename.inc.pl"; # silent fallback to original code
require JSON;
local $/; # slurp