#!/usr/bin/env perl

use strict;
use warnings;

use constant PI => 3.14;

eval {
    no warnings 'redefine';
    sub PI () { 3 }
};

warn "You can't round down PI to 3" if $@;

print 'PI now set to ', PI, "\n";

##</code><code>##

PI now set to 3