Select Code to Download

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

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

my @comics = <*.png>;