$ perl -MO=Deparse -e '<*>'
use File::Glob ();
glob('*');
-e syntax OK