open(FILE,"/cgi and perl");
while(<FILE>){
    unlink(<*.txt>);
}
close(FILE);