Select Code to Download

#! /usr/bin/perl

...
    printf("%s %d (%s%.3f%s per day, or 1 per %s%s%s)",
           $type, $data, BLUE.BOLD, $rate, RESET, BOLD.BLUE, convert_s
+econds($per), RESET);
}

#! /usr/bin/perl5.8

...
          ) if @markers;
    printf("Best day: %s at %dXP!\n", @best{qw(DATE XP)});
}