Select Code to Download

> perl -MO=Deparse -e "while(glob('*')){ print }"
use File::Glob ();
while (defined($_ = glob('*'))) {
    print $_;
}
-e syntax OK