use List::Util qw(min); sub foo {} print defined(&foo); # prints 1 print defined(&time); # prints '' print defined(&min); # prints ''