foreach my $file ( @files ) {
                unlink $file or warn "Could not unlink $file: $!";
                    }