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