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