opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
    @files = grep {/\.txt$/} readdir(DIR);
    closedir DIR;
    unlink @files;