#!/usr/bin/perl
print "Content-type:text/html\n\n";
use warnings;
use strict;
#use File::Basename;
opendir(DIR,"/root/sample/directory/") or die $!;
my @dir=readdir(DIR);
close (DIR);
foreach my $directory(@dir){
if($directory =~/^\w/){
print $directory;
}
}