use Inline CPP => Config =>
  BUILD_NOISY => 1
  CLEAN_AFTER_BUILD => 0,
  OBJECT => '$(O_FILES)',
;
	
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;
}