#!/usr/bin/perl -w -T
use strict;

use File::Find;
print "Content-type: text/html\n\n";

find( \&print_options, ".");
sub print_options {

    foreach ($_ ) {
      print "$_\n";
    }	  

}

##</code><code>##

Insecure dependency in chdir while running with -T switch at /usr/local/lib/perl5/5.8.2/File/Find.pm line 723.