From 09db491ae8b608ad662d11b74d77150d2aeb5611 Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@babyl.ca>
Date: Sat, 9 Dec 2023 12:59:25 -0500
Subject: [PATCH] preset

---
 2023/preset/day/templates/perl/benchmark.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/2023/preset/day/templates/perl/benchmark.pl b/2023/preset/day/templates/perl/benchmark.pl
index 36ab17c..6154f18 100644
--- a/2023/preset/day/templates/perl/benchmark.pl
+++ b/2023/preset/day/templates/perl/benchmark.pl
@@ -9,8 +9,8 @@ use File::Serialize;
 use Part1;
 use Part2;
 
-my $day = path('.')->absolute->basename =~ s/^0//r;
-my $year = path('.')->absolute->parent->basename;
+my $day       = path('.')->absolute->basename =~ s/^0//r;
+my $year      = path('.')->absolute->parent->basename;
 my $solutions = deserialize_file('solutions.yml');
 
 my @parts = (
@@ -36,6 +36,7 @@ for my $part (@parts) {
         language  => 'perl',
         part      => $part->{part},
         time      => $res->cpu_a / $res->iters,
+        persec    => $res->iters / $res->cpu_a,
         timestamp => DateTime->now->iso8601,
     };
     say to_json $result;