if ($name[0] !~ $filename) {
        unlink($files . "\\" . $filename)
            or warn qq{cannot delete $filename: $!+};
    }