The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.


Acme::Odometer - Create graphical web counters


version 0.0.4


    # write the image to a file for your viewing pleasure
    use Acme::Odometer;
    use File::Slurp qw( write_file );

    my $odometer = Acme::Odometer->new(
        asset_path     => 'path/to/digit/files',
        file_extension => 'png',

    my $image = $odometer->image( '000123456789' );

    # write as a GIF
    write_file( "counter.gif", $image->gif );

    # write as a PNG
    write_file( "counter.png", $image->png );

    # or (for example) in a Dancer app
    # place an odometer graphic at /counter?count=12345
    # in real life, you'll want to validate etc before creating the graphic

    get '/counter' => sub {
        header( 'Content-Type' => 'image/png' );
        my $odometer = Acme::Odometer->new(
            asset_path     => 'path/to/digit/files',
            file_extension => 'png',
        $odometer->image( params->{count} )->png;


This is a BETA release. The interface is still subject to change.

Acme::Odometer makes it easy to produce graphical web counters. You know, those odometer style thingies you used to see on a lot of geocities pages? This module takes a bunch of images of different digits, strings them together and passes them back to you as a GD::Image object.



Creates and returns a new Acme::Odometer object. The following parameters can be passed to new().

  • asset_path => "/path/to/odometer/files"

    The path to your asset folder. The asset folder will contain 0..9 image files of equal width, named 0.gif, 1.gif, 2.gif, 3.gif etc. The images can be in any format which GD can read. This parameter is required.

  • file_extension => 'png'

    The extension of the files in your asset directory: "gif", "GIF", "png", "jpg", "jpeg", etc. This module makes no assumptions about what is or is not a valid extension. This parameter is optional and defaults to "gif".

        my $odometer = Acme::Odometer->new(
            asset_path     => 'path/to/digit/files',
            file_extension => 'png',


Returns a GD::Image object, which you can use to print your image

    my $odometer = Acme::Odometer->new(
        asset_path     => 'path/to/digit/files',
        file_extension => 'png',

    binmode STDOUT;
    print $odometer->image->png;


All you need to get started is the images, which should consist of the digits 0-9, all in the same file format and all of equal width. For example, see for a bunch of insanely retro counter graphics. Or, see the assets folder of this distribution for a basic odometer.


It's hard to trace the history of a lot of web counter graphics which have been circulated as they seem to originate in the Wild West of the internet. The images bundled with this dist appear to have been created by Heini Withagen, but this is hard to verify since the original page 404s now and also 404s in the earliest wayback machine snapshot (1999). Original link found at


Olaf Alders <>


This software is copyright (c) 2014 by Olaf Alders.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.