It can even be done without that evil C! Today, I stumbled across POSIX, and decided to play with it a little.

use POSIX;
 
for (grep{ /^_\w/; } keys %::) {
  eval( "print \"$_ is set to \".$_.\"\n\";");
}
[download]

is all you need.

Cheers,

Jeroen
"We are not alone"(FZ)