opendir(IMM, "\images") || die "can't open...";
@images = readdir(IMM);
closedir IMM;
@images = File::Spec->no_upwards(@images);