$ perl -le'sub f {}  print exists(&$_)?1:0 for qw( f g )'
1
0