#!/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";
    }	  

}