opendir(D,"/proc/$$/fd/");
while ($fd=readdir(D)) {
print "I've got this descriptor opened: $fd";
};
[download]

But this is not very portable, works on linux with procfs mounted, as soon as you move to win32, you're in trouble.

I wanted something working from inside