Use Download As on the toolbar.

Goal

Say a one-file kiosk summary.

use strict;
use warnings;
use feature 'say';

my @rows = (
  { city => "Nairobi", units => 12 },
  { city => "Kisumu", units => 5 },
);
my $total = 0;
$total += $_->{units} for @rows;
say "cities " . scalar @rows;
say "units $total";

use strict;
use warnings;
use feature 'say';

say "Download As → .pl from the toolbar";