use strict;
use warnings;

my $NUMBER_OF_TIMES_PER_CENTURY = 12;
my $NUMBER_OF_CALENDARS = 300;
my $BEGINNING_OF_HUMAN_HISTORY = 197994;
my $END_OF_HUMAN_HISTORY = 4006;

my $human_history = $BEGINNING_OF_HUMAN_HISTORY + $END_OF_HUMAN_HISTORY;
my $centuries = $human_history / 100;

my $total = $centuries * $NUMBER_OF_TIMES_PER_CENTURY * $NUMBER_OF_CALENDARS;

if ( $total > 1 ) {
  print "David Pogue was wrong\n";
}