Help for this page
@files = glob("/opt/tmp/*");
opendir(DIR, "/opt/tmp/") or die "Cannot open dir"; @files = grep {"/opt/tmp/*.xml"} readdir DIR;