my @a;
    my $dir = "/and/evel/aap/list/60";
    opendir(PATCH, $dir) || die "Unable to open $dir ";
    @a = readdir(PATCH);
    print "@a\n";
    closedir(PATCH);
    exit;