Select Code to Download

use warnings::colored;
warn "warning";  # yellow
...
eval { die "caught" };  # none
say $@;  # none
die "died";  # red

package warnings::colored;
use strict;
...
} if $] < 5.016 ;

1;