opendir(THISDIR,"e:\\perl\\comics\\");
my @comics=readdir(THISDIR);
close(THISDIR);