for $hash.kv -> $key, $val {
  if ($key ~~ /^\d+$/) {
    sleep(1);
    my $surl = "$fimbaseurl" ~ "api/story.php?story=$key";
    say "Getting info for story $key - $surl";
    my $time = time;
    my $p = qqx{wget -o /dev/null -O - $surl};
    my $timewget = time - $time;
    $time = time;
    my $rep = $ua.get($surl);
    my $timeua = time - $time;
    $time = time;
    $p = LWP::Simple.get($surl);
    my $timelwp = time - $time;
    say "Request took (wget, ua, lwp) : $timewget ; $timeua ; $timelwp (" ~ $p.defined ~ ")";
    #my Story $story = fromJSON($rep.content);
    #$story.character_tags = @($val);
    #$bookshelf.stories.push($story);
  }
}


Getting info for story 278045 - http://www.fimfiction.net/api/story.php?story=278045
Request took (wget, ua, lwp) : 1 ; 47 ; 0 (False)
Getting info for story 275680 - http://www.fimfiction.net/api/story.php?story=275680
Request took (wget, ua, lwp) : 0 ; 1 ; 1 (False)
Getting info for story 262566 - http://www.fimfiction.net/api/story.php?story=262566
Request took (wget, ua, lwp) : 0 ; 1 ; 0 (False)
Getting info for story 253961 - http://www.fimfiction.net/api/story.php?story=253961
Request took (wget, ua, lwp) : 1 ; 46 ; 0 (False)
Getting info for story 287787 - http://www.fimfiction.net/api/story.php?story=287787
Request took (wget, ua, lwp) : 5 ; 47 ; 0 (False)
Getting info for story 230097 - http://www.fimfiction.net/api/story.php?story=230097
Request took (wget, ua, lwp) : 0 ; 2 ; 0 (False)
Getting info for story 288143 - http://www.fimfiction.net/api/story.php?story=288143
Request took (wget, ua, lwp) : 1 ; 46 ; 0 (False)
Getting info for story 272763 - http://www.fimfiction.net/api/story.php?story=272763
Request took (wget, ua, lwp) : 1 ; 46 ; 1 (False)
Getting info for story 275886 - http://www.fimfiction.net/api/story.php?story=275886
Request took (wget, ua, lwp) : 0 ; 47 ; 0 (False)
Getting info for story 284498 - http://www.fimfiction.net/api/story.php?story=284498
Request took (wget, ua, lwp) : 0 ; 47 ; 0 (False)