>perl -e"print exists(&foo)?1:0; exit; foo();"
0