http://www.perlmonks.org?node_id=1231019


in reply to How do you Carpe diem?

use Carp qw(carp); *carpe = \&carp; carpe("diem");