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

##</code><code>##

my @comics = glob('e:/perl/comics/*');

##</code><code>##

my @comics = <*.png>;