use Inline CPP;

for(1..3) {
    print "Perfect random number: ", cast_die(), "\n";
}
 
__END__
__CPP__

#include "xkcd.h"
 
int cast_die() {
    int rolled = xkcd_dice_roll();
    return rolled;
}

##</code><code>##

#ifndef XKCD_DICE
#define XKCD_DICE

// See https://xkcd.com/221/ for why this is absolutely perfect
#define FAIRLY_GENERATED_RANDOM_NUMBER 4

int xkcd_dice_roll();

#endif

##</code><code>##

#include "xkcd.h"

int xkcd_dice_roll() {
    return FAIRLY_GENERATED_RANDOM_NUMBER;
}