If you are on Linux you could use something like:

#!/usr/bin/perl -w
                                                                      
+          
opendir FD,'/proc/self/fd' or die "Can't open FDs - $!\n";
                                                                      
+          
my @FDS = grep !/^\.{1,2}$/,  readdir FD ;
                                                                      
+          
print "@dirs";
[download]

Of course as someone else said you might want to make a judgement as to whether you want to close your STDIO handles :-)

/J\