#!/usr/bin/perl


use CGI::Carp qw(fatalsToBrowser);

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

$somedir = "$ENV{DOCUMENT_ROOT}" . "/development/";

print $somedir;

opendir(DIR, $somedir) || die "can't opendir $some_dir: $!";
@dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;

foreach $line (@dots)
{

print $line;

}

opendir(DIR, $somedir) || die "can't opendir $some_dir: $!";
@files = grep { !/^\.{1,}$/ } readdir(DIR);
closedir DIR;